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GEBRU^fc^ERS CLUB 

^EOERLfl^D 



een club van 6502 
□ebruikers 



Het doel van de vereniaina is: het bevorderen van de kennisuitwisselina 
tussen de aebruikers van 6502-comDuters, zoals KIM. SYM, JUNIOR, fiIM-65 
SYSTEM 65, flCORN, PET en CBM, APPLE, CHE-1, OTPRI, de Proton-comouters. 
ITT 2020, PEflRCOM, PC-100, OSI, BBC, VIC-20 en COMMODORE 64, BASIS 108, 
PflLLRS, SBC 65/68, FORMDSfi, DRIC-1, fiCE 1000, KEMPflC Svstem 4, NCS 6502, 
MINTA, enz. enz. 

Deze kennisuitwissel inq wordt o. a. gerealiseerd door zesmaal oer jaar 
DE 6502 KENNER te publiceren, vi.if maal per laar clubbi.ieenkomsten" te 
houden, een cassettebibl iotheek in stand te houden en oaoerwa re-service 
te bieden. Daarnaast organiseren de leden zelf reaionale bi.ieenkomsten. 



Verschi jninqsdata 
DE 6502 KENNER 



Bi.j eenkomsten 
van de club 



derde zaterdag 

van de maanden: 

februari 

april, juni 

augustus 

oktober 

december 

Regio Den Haaq/R'dam e. o. 

Inl. Gerard van Roekel 

V. d. Palmstraat 11-C 
3135 LK Vlaardinaen 
Tel. : 010 - 351101 



derde zaterdao 

van de maanden: 

.^anuari 

maart 

mei 

seotember 
november 

Regio Arnhem e. o. 

le en 3e Ma-avond 
in HET DORP 
(zaal wordt 



v.d. maand 



aangegeven in de 
hal van de oersoneelsf lat) 
Inl. : Henk Deutekom 

Tel. : 08303 - 8987 



De KIM SEBRUIKERS CLUB NEDERLAND is een volledia onaf hankel i ike vereni- 
aina met statuten en een bestuur. De club is inaeschreven bi i de Kamer 
van KooDhandel en Fabrieken voor Hollands Noorderkwart ier te Alkmaar, 
onder nummer 634305. 

Samenstell ing van het bestuur is thans als volat: 



Voorzitter! 



Erevoorzitter : 
Sekretaris: 



Penn i ng meest e r s 



Ledenadffl i n i st rat i e : 
Redaktie DE 6502 KENNER 



Hard-/Software: 



Promotie: 
Ereleden: 

Ad res van de vereniaina s 
L i dmaat schaopen : 



Advertentietarieven! 



Daqe 1 i .iks best u ur :_ 
Rinus Vleesch-Dubdis 
Fl. Niahtinaalestraat 212 



2037 NG Haarlem 
Sieo de Vries 
Ruud Uohoff 
Voorburgoad 10 
6843 EM'Amhem 



(023 



330993) 



(085 - 816935) 
(19.00 - 20.00 ) 
Riet Uohoff - Burahoorn 
voor adres: zie bi] sekretaris 
Led en: 

Ruud Uohoff (zie bi.] sekr. ) 
Willem L. van Pelt 
Jacob Jordaensst raat 15 
2923 CK Krimoen a. d. IJssel 



(01807 
(05490 
(01807 
(05490 
(070 



19881 ) 
51151) 
20589) 
71416) 
931417) 



Adri Hankel 
John van Soran^ 
Erwin Visschediik 
Jan TofflDot 
Mw. H. de Vries - Van der Winden 
Anton Mueller 
zie adres sekretaris 
F1.45, = oer kalenderjaar, oostreke- 
nina 3757649 t.n. v. KIM Gebruikers 
Club te Arnhem 
Oo aanvraaa bi] de redaktie 
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DE 6502 KENNER is een 
ttitoave van dt KIN Gebrui- 
Hini Ctoii NadcrlMvi. 

Mfts voor het inzmdm 
van en reakties od artike- 
lin voor DE 6502 KENNER: 

Uillet L. van Pelt. 
Jacob Jordaensstraat IS. 
2923 CK KRINPEN flW DEN 

IJSSEL. 

Tel. i 01807 - 19811 . 
Redaktie DE 6502 KENNER: 



Uillea van Pelt 
Berard van Roekel 
Frans Swehuiizen 

Jam van Toledo 



Fr>el«!«ce ueimmTkmt 

. v- v Frans Bakx 

ftiri Hankel 
Fridus Jonktan 
6ert Klein 
Henian Kuyvenhoven 
Roger Lanqeveld 
Anton Mueller 
Koen van Nieuttenhove 

Gehele of oedeelteliike 
overnaMe van de inhoud 
van DE 6502 KENNER zonder 
toesteaainq van het be- 
stuur is verboden. Toeoas- 
Binq van qeoubliceerde 
orograaM's, harditare etc. 
is allien toeqestaan voor 




IE iS(@ iraP^iwrschi ;nt 
I x oer jaar en heeft een 

Cooyright (C) 198A KIM 
fiiitnuiitrs Club NederlWKl* 

Se vooroagina is een aaua- 
rel van een KIM. igflschil- 
derd door: 

Rims VlHHch Si^is 



IMOUDSOPeWE OE 6302 KENNER NR. 34 
1. Van de redaktie 



OKTQBER 19B4 



!L ttllNODIfiING Ledenvcrgadering/Landeliikc BijsenkiMSt 

3. HQSER flsseabler 

UordDrocessino Hith Carl Moser's Text Editor 
. . . Hans Buurean 

*• EzW 

Cassette-interfacet sieoel 

i:!B.H. 64 Kernal Test Routine 
... Gerard van Roekel 

5. yatc 

Tokenized Microsoft Basic KevHords and Addresses SYM-1 
... Uillea L. van Pelt 
Save en Load Routines Proton DOS 
Voortzettinq serie uitbreidinoin Sm-Basic oo JWIOR 
... Frans Saeehuiizen 
Maanlander. Basicoroqraaaa. 
... Maarten van Hintua 

6. FORTH 

' KVelnt ie FORTH. Rekaties. 
Hex/flscii-du«D 
... Gert Klein 
•Korrektie 
... Fridus Jonkaan 

7. Hicro:^pE cc .n ■ 
Patch 00 Micro-flDE 
... Alfons v.ll« ilNtttn iciflic 

6. COMAL. «KGN 

Proaraaaa St aaf d i aa raa 

Staafdiaqraa afdrukken aet Hicroline 80 orinter 
... Frans Bakx ■ r 

9- 3M0R-?MtOT 

Patches on Senior Monitor V4.6 
Voortzettinq van een serie aanoassinqen 
... Rob Banen ' 
Versneld laden Proton Basic oroaraaaa's vu: 
... Geri van Oobnirt- , 

10. 0S65D 
fiD5~4 Tricks 

... aet dank aan Uout van Dinther 

yallbreaker for JUNIOR Hith OHIO-DOS 

Modifikatie van eerder qeoubliceerd oroar. Uillea Kuiteas 

... Henk Mockina 

BUG in DOS-uitbreidina Elektuur. seot. 1964 
... Gert Kim 

11. HARDUARE 
JUNIOR BK of 

... Hans Mooij ^i^iu . 

12. DJVEmi ; ,„ ., , h*. 
Checktaoe ,rez i> •;. 
. . . Phons BlflMin — ^ 

13. HARKTIW FO 
65616 aicroorocessor 

Elektuurs 5AMS0M-65 DOS Coaouter aet 0S6SD 
FATE 65 

14. VRflflS EN AflNBQD 



?ni'3.'jr.» 



L 
22. 

3. 

32. 
47, 

34. 

k^a 

42. 

21. 
33. 

48, 
46. 

23. 

26, 

48, 

28. 
39. 

48, 

44, 
29, 



21. 
48. 
2. 

21,24. 
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KEIMIsJER 



Een van de heerliike dinqen die het qeweten van een redak- 
teur bii voortdurira berberen is de vraao of hit het ziin 
lezers/leden van de club wel steeds naar de zin aaakt. De 
realiteit HaarschuNt het daarbii keer od keer voor al te 
oroot DotiaisK. laaers. zoveel' hoofden zoveel zinnen. Of. 
in het eiqen jarqon: er is alt i id ml een lezer die zich 
tekort gedaan voelt. Als dat een redakteur te ernstio aan 
het qeweten knaaqt, dan schiet hi] tijns inziens te kort. 
Het redaktiewrk kan niet aoed funktioneren als we alsaaar 
beziq aoeten ziin het iedefeen naar de zin te aaken, het 
funktioneert oas ootiual als we oroberen het zoveel aoae- 
liik lezers naar de zin te taken. 

Desalniettetin is het aoed dat lezers bi.i tiid en Mijle de 
redakteur aansoreken ob ziin qeweten. biivoofbeeld door te 
vraoen 'waarot kott in zo'n oer-nederlands blad de enoelse 
taal voor?'. Het is qoed oa dan eens od een rii te zetten 
hoe dat in elkaar steekt. Uaarot aebruiken we eiaenliik 
niet uitsluitend het nederlands? 

Nu heb ik noaal de neiqina te abstraheren alvorens de kern 
van de zaak te orecisefen.' Sots is dat araooio. sots stoa- 
vervelend. Beide risico's neea ik als ik te af vraao wat er 
nu feiteliik qevraaqd wordt. Uat bedoelt ten tet de neder- 
landse taal? Gaat het ot de taal waarin oeen uit andere 
talen overoenoaen ver-nederlandste woorden voorkoten? Hoe 
ziet eiaenlijk het nederlands van vandaaa eruit? Liot het 
nederlands van torqen. door oonate van'allerlei iioonten 
uit andere talen. niet veel teer voor de hand? 
Noq afqezien van het feit dat qoede beantwoordino van de 
vraaq beaoeiliikt kan worden door onduideliik aedefinieer- 
de ofobleetstellinqen. het kan ook betekenen dat zo'n een- 
voudioe vraao voortvloeit uit het oeaak dat de tens dient. 
Er is itters tinder insoiMliM loiiili 'ilt' je uitsluitend de 
nederlandse taal beziqt. 

De redaktie heeft te taken tet een aantal harde oeaevens. 
welke tijns inziens onotkeerbaar ziin. Ik zal ze hieronder 
ODSoaaen. taar vraaq beqrio voor het feit dat slechts de 
belanqriikste worden uenoetd. Deze harde qeqevens liqqen 
inaebed in de striid ot de toekotst van blad en club te 
verqetakkeliiken. 

a. De cotaunicatie in de cotouterwereld wordt oedotineerd 
door het enqels. Niet enkel vanweae de oorsorona van de 
aktiviteiten. aaar vooral oadat het enaels door vriiwel 
iedereen wordt beqreoen en oeacceoteerd. 

b. In den beoinne bestond de club uit oer-nederlandse le- 
den. Het lidaaatschao staat echter ooen voor iedereen. 
dus ook van buiten Nederland. Ue herberaen nu ook leden 
uit Ouitsland. Belqie, Frankri ik. Ssanje. HeKico. Por- 
tuqal, en in India bestaat zelfs belanqstellinq voor de 
club. In soaaiae qevallen soeelde Elektuur hief een rol 

c. Kennisuitwisselino - doel van onze club - is een aondi- 
ale aanoeleqenheid. Uat onze lezers kurnien leren van de 
anderen worat niet beoaald door landsorenzen. 

d. 0ns blad werd vroeqer voornaaeliik oevuld door bestuurs 
leden en redaktieaedewerkers. Een enkel lid waaade het 
cooy in te sturen. Dat is niet aeer. De leden/Iezers 
hebben beoreoen dat zii het blad aoeten vullen en dat 
de redaktie sturend en stiaulerend beaeleidina oeeft. 
Onder deze inzenders bevinden er zich die oeen 'woord 
nederlands kennen. of die filiii^ of mdceltelijk in het 
enqels ooaaken. 

Aanqezien nu de inzenders zelf de inhoud van het blad be- 
oalen liot hier de beantwoordino van de vraao vamiaar het 
enqels in om blai. Oer-WQels of stcenkolen^els, 

M.L van Pelt 



Een tiidie qeleden is bn fldrl Hankel en a:i een 
wild idee oeboren van een soort extra lanoe club 
biieenkoast. Deze zou dan een heel week-end kun- 
nen duren. Overdao de conouters aan en 's avonds 
□ezellio bii elkaar zitten rond de barbecue. In 
het voriae nuaaer is hierover ook al lets ver- 
aeld. Bii zendaaateurs bliikt zoiets levensvat- 
baar. Zodra Mvi en ik. of de redaktie. reakties 
ontvanaen oaan we bezien oo welke wiize we tot 
realiserinq kunnen koaen. 
Er wordt door aii tussendoor ook noa oewerkt aan 
een tonitor voor de nieuwe CPU-kaarfuit Elek- 
tuur. Oit stuk bulksoftware beoint al aardiae 
vorten aan te neten. Als het aan tii liot kan de 
tonitor alqeaeen clubooed worden (red: al eerder 
Dubliceerde J.J. Janssen uit Niiaeoen ziin soft- 
ware voor de VDU-kaart: de redaktie saeurt naar 
noq teer leuke dinoen voor beide kaarten). 
Noq even een waarschuwino. In de ELEKTUUR staat 
een wiiziainc oo de VDU-kaart voor 65C02 bezit- 
ters. net deze wiiziainc wordt voorkoten dat er 
streeoies oo het beeldschern koaen als de CPU in 
het beeldscheraraa schriift. Dit wordt oedaan 
aet behulo van het liintie RDY od de orocessor. 
Oit liintie wordt aet een stukie looica oalaao 
qetrokken als de orocessor in het VDU-rat wil 
schriiven terwiil disalav enable oo CRTC hooo is. 
Deze true werkt aardiq als ie oeen earoa oroaraa- 
aer van Elektuur oebruikt. De earot orooraater 
aaakt ook qebruik van de RDY-liin. En tot aim 
orote verbazino zao ik dat zowei de li;n oa de 
VDU-kaart als de 11 in oo de earoa orooraaaer oe- 
stuurd worden door TTL ooorten aet een toteaoaal 
uitoanq. Dit is vraoen oa aoeiliikheden. De oa- 
lossino liot voor de hand. Zoro ervoor dat de 
TTL-ooorteh die de RDY-liin aoeten sturen een o- 
oen collector uitoano hebben. Er is oo beide 
kaarten qeen ooen collector-ooort aeer vrii, dus 
•oet er eoens een 74LS0S of lets derqeliiks bij 
00 oeeonteerd NordM. Veel succes enm. 

Emift Viwt^i ik. 

12 II FflTE_65 FOR JUNIOR. 
F oraat lister 

A ssetbler ^- 
T aoe-uitilities 
E ditor 

FATE 65 has the editor as a central orooraa. 
With the editor one is able to develoo text- 
files and source-files, to write on taoe and to 
read froa taoe. Uith the f oraat lister text- 
files are aade on a orinter. The lister recooni' 
ses several coaaands. under nhich control-coa- 
aands for the OKI Hicrelinc W orinter. Uith the 
asseabler source-files you can convert to obiect- 
code. Froa cassette to cassette. Froa acao- 
rv to aeaory. Froa cassette to aeaory. Froa ae- 
aerv to cassette. Meroina is possible. Solittino 
is oossible. You need an extended JUNIOR-cotou- 
ter. two cassette recorders with totor-control, 
and at least 1£ K RAM. better 32 K (2000-3000). 
Ask Hr. U.L. van Pelt, c/ Jacob Jordaensstraat IS 
Kriaoen a.d. IJssel. 2923 CK, The Netherlands, 
for a list of ori»s. 
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■HWM ■■■■pUfc H^t^* flM^H MBHIlit <i^^M* ^^m* ^BHIB H^V^ 4m*H^at Mt^MIM «HVM .MPHIV «NIMV>^-lff^^^ ^{l^^pwi^ig^* t^a^m 

MOSiER' s te:xt editor 



The 6502 macro assembler has a text editor that is well 
suited for its purpose? setting up and maintaining its 
6t»«f€#f1' ie. HoMever? to edit other sorts of text f olifferent 
program is needed. The program described h#r# «fv#|»i9i| th^^liwr 
to jrifsert coMMands in the text which allow him to have the text 
oot (sotted in a desired formi both on screen as on a printer. 
HereT the ok i microiine S0 is used* hQ% the program can easily 
be modified to fit to other printers. 

1. Generai description of the Prograw. 

Firsti soMe of the aswwblers vectors Must be initialised by usins RUN adress. where the value ctf 
adress depends on the proarans asse«bly. During usei the text can be outPutted with the USER coanand. If 
the break hey is usedi outPuttins can be resulted with CTRL Y. If this hey is pressed at any other tjonent, 
the PfosraM will resune where it stopped last ti»ei or after initialisation at the start of the textfile. 
HoNever in the last case no output will be seen because both output devices have been switched off. After 
an error hui iMft detected* CTd ¥ Mill cxm a restart tt the start of the tine in Mhich the error 
occurred. 

^^CoiMiOTds mm M enclosed between square bracketsi two syebols with asci i values of hex 5B and 5D. 
fhese Characters are printed by tl« iicroiine as + and After a + is foundi the next character is 
suwosed to be the coiwand. CoMaands Must be followed by a colon or closing bracket, the former itenint 
another cowiand followsi the latter ending the coiwands. The twenty-five recognised coMMands are 
explained below. It nust be stressed that so(»e of the comiands are only effective at the end of a line. 
If GMMands set or reset a printing wdei the last tine this cowiand was used, holds. E.9. in a line the 
\m i ^iwnd encom^ Mill deterMne the 0riRt«r mm, 

2. Pr >nt i w 9i!om&T9, 

M Itie «td Of A tinet or on wvins to mcfthe-r tin^ the current line is Pflntiilt iNs take three 
passe&i 

1- On the first Pass, the line is printed as usual. ,, 

2- On the second Pass, if the 2 or B coMnund has been used, desired parts of the llj* ire printed again in 
the desired form. This. second nm AiioMS mm to lie pristed wtn dwrk Of 49«MKi«t way ( e^e. the 

dutch word retel ). 

3- On the third pass, if a U C'TWuand has been used, an underline will be added. On default this will use 
the next line coaP leteiy as is shown in this text's headings, but other settings can be obtained by using 
the C connand. 

The last two Phases will only be used when needed, but they will all be used trtien a graphic code 0127) 
has been used. This is because the «icroi ine has an advised oity cycle of Nhen printins eriPhics. 



During output spaces are subject to the following rules: 

1- Between two sroups of non-space characters -Dnly one space is ai lowed. Hore spaces can however be 
obtained with several cottnands. such as S. T and A. 

2- flt the end of each line in the original text, a space is inserted. However, rule 1 iwst be obeyed. 
Paragraphs are available with Xbe P coHtiand. The first line of a paragraph is tabulated. The nueber of 
spaces here can be changed with the J conHand. It Must be reiiarked that all above goipands «re Mseiess 
nben the lines ere filled as in the ipd mmMPhi after tiif 8 coMWd ■^.m^Hh^' ^^^^^.^nw - 

4. yi» mWKk 

The length of a llM is deterMened to the current printer Mode and the Positions of the borders. The 
printer Bode is selected with de H wd V coMMands for witdh and letter size, and letter heisth 
respectively. CoiuMns are nuMbered fro* left to right with the leftMost being nr. 8. and the L and R 
coMnands set the borders to their values. The borders are reset after a H coMMand. The T and . coMMands 
tabulate to a certain colunn. ft terMinal width can he given, if the width of a line is equal to this, the 
linefeed on screen will be suppressed t/a iiwr(^e layout. 

5. Pases 

After an F cotmand. printing is done in Pases, fl page nuaber is printed at the top of each paw. 
The # coufiand sets the page nuMber to a value, which of course is a deciaal. The I cotwand al lows 
the user to determine the size of the pases hinself. It is assuMed that V0 gives B lines/inch and 
VI gives 8 lines/ inch, so that the space between Pases can be given in either 1/5 or 1/8 inch, the 
latter by siwply adding 128. A value of 255 gives only a halt at the end of each Pase. The size of 
the page Must be given in inches as an integer nuMber. No assuMPtions Made here. Only if an F 
coMiand is given very close to the end of a pase siisht errors of a fraction of m inch Mill be 



B. Mi see I lanous. 



The 0 conwand allows output to he sent to printer, screen neither or both, and the K coisnand 
Just waits -for a Key to be pressed. 

Of coursei soaetimes an itiigal input will be found. Most Possibilities ( as far as the author 
could see i ) are quite harmless and will be isnored. If Possiblei unnecessary bits are throim 
away and tabulations to not existing columns aren't executedi but some things just cannot be 
al lotted. In that case> an error messase wl ll be issued by means of the standard routinei shotting 
!xx AT LI^E yyyy/zz. In extrete cases yyyy may point to the line after the one containing the 
error. The zz field shoMS the value ttat caused the error, ftli error codes are sham in a table. 



Detailed description of all cojsaands. 



The f^;}! lowing notations will be used: 
n or M... .Either a^iMi integer or the synbol ' fot lotted by any character (this siws the 

ascii -value). 

string ....fl sequence of characters not containiM s or *i eniied Ijy s or *. 

1- CosKsands without operands. ; ' 

D Move to the next line. 

P Start a new paragraph! wove to next i ine and tabulate. ' ■■'•^^'^ " 

F If pages weren't used: start using Pa^«t'*R^ t|if wit (litti^ 

If pases were used; start a new page. .*. 
K Wait for any hey depressed. ' ''''"^ 

2 Start printing everything twice (extra dark). '■ " 

1 Print everything once. 

Defaults are: no pases, print once. 

2- Co(n«ands with one operand. -><-ot .. .'. - - /- ^-i i. «- 

In Set left hand border to n. 
Rn Set right hand border to ri. 

Hn Set horizontal mode. Modes B-.2 give compressed, normal and double width on a long line, 

Modes 3-5 the same on a short line. 
Vn Set vertical mode, node 0 gives 6 iPi, mode 1 gives 8 tpi. Dat for the H <U)d V cotmands are 

contained in a table at the end of the pnmm, 
Hn Bet teminal width. 

Tn Tabulate to column n. If the cursor is Past that 0)lwn> the coMiand iS iftoreii. 
.n Sitte as the T coimand, only .'s are Printed. 

ft) Output control, iKMs no cwpffti n«l uses the ttriii»ii uses the urin^r «id n«3 ^ism 

both. 

Jn Set the paragraph tabulation to n. ' ' ' 

Sn Print n spaces. 

En Error control. nMI Hettns edAtirwe after errori n#t causes a halt. Si» tM 

pseudo OP. 

In Set the Page length to n inch. There is also <C^i^'%^^^«i' ti|M^ 

turns the pases off. - . ■. ^ ^ 

+n Add n to all following ascii codes. This allows use of srartiic codes 
#n Set the page number to n. '' '. 

fin Send asc'; I code n. 

Un Underline with symbol n. Useful are =, _, - and ".Switched of with U. 
Sri Fi i I out al I I ines (see fourth and f i fth paragraph) unless the line has less than i^K^(^ 
Bstring Print string, starting at current position, on the second pass. 
Defaults are: HB;Vl;Ill,255;Q;«l;El?0l5J5!+«5U. 
S-CloMdiiands with tw operands: ' 
Inti Set page length to n inch> independent of printer Mode. Set space between pases to » tines 
1/6 inch if fi(128. 

Set space between Pases to (ii-12S) tiaes 1/8 inch, if 127{ii<255. If M=2Si. iost stop 
printing after each page. 
Cn>a If Mi^ili send a cifriaie netufn aftir pfintint M&t nv ifMBVdon^t. ^ 




Error codes. 



Followins error codes are used: 

K Bad Ciauaand. Shown is the ascii value in hex. 

30 Border setting out of range. Shown is the value of the L or R coamand involved. 

31 Paragraph tabulation out of range, tlay occur a^ter a L, R, or J coftwand. Showri is the value of 
the last J cDiamand. 

S Tabulation out of range, fi T or . CMimand has been given to a position m the right of the right 
hand border. Shown Is the operand. 

33 Syntax error in a C coiHund, or the first operand is zero. Shown is HI in the last casei or an 
ascii value in the first. 
All values are shown in hex. 




KEIMNER 



9000- 
9002- 
9005- 
9007- 
9008- 

900fl- 
900C- 
900F- 

9012- 
9015- 

9018- 
9019- 
90 IB- 
901C- 

901E- 
9020- 
9023- 
9025- 
9028- 

902B- 
902D- 
9030- 
9032- 
9035- 

903B- 
90^- 

903C- 
903D- 

903F- 
9042- 
9045- 
9047- 

9049- 
904C- 

9051- 
9054- 
9056- 
9057- 

905fl- 
905D- 
905F- 
9060- 
9063- 



■ fl2 05 

■ BD 18 90 

■ 95 00 
- CA 

■ 10 F8 

• fi9 00 

• 8D IE 9fl 

• 8D ID 9fl 

20 05 90 
4C 03 20 

4C 

IE 90 
4C 

2B 90 

fig OD 
20 3C 90 
09 00 
20 3C 90 
4C 04 92 

09 00 

8D ID 90 
49 01 
8D IE 90 
4C 01 92 

4C 51 90 

00 

10 06 

8D 11 90 
8D 13 90 
C9 00 

m m 

OD 14 90 
CD 22 90 
FO 09 

OD IE 90 
FO 04 
80 

20 80 OC 

OD ID 90 
FO 04 
80 

20 OC 40 
EO 00 



0001 
0002 
OO03 
0004 
0005 

oooe 

0O07 
0008 
0009 
0010 

0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 
0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 
0072 
0073 
0074 



BUFLEN 
DUTCH 
RECHO 
PRINTER 
BREAK 
WORMST 
ERRORM 
ERROR FORM IS 



FACILITIES Pf 
.BO $9000 



eT>> 



.DE 132 
.DE *C80 
.DE ♦120E 
.DE $400C 
.DE $1080 
.DE $2003 
.DE $244B 



LINENR 
FILENR 
CONTFL 
END 
BEGIN 
PNT 



INIT 
INI TO 



'kS5il§Ir.5^^5§^'^ CHOROCTERS/LINE POSSIBLE 
iCHARACTER TO SCREEN WITHOUT BREAKTEST 
:READ CHARACTER FROM KEYBOARD 
.■CHARACTER TO PRINTER ONLY 
;BREAKTEST ODRESS: BIT 7 IS 0 FOR SREAK 
:OSSEMBLER WORM STORT ' 
,v« «T . TISSUE ERROR MESSAGE (OSSEMBLERJ 
I^L"^ ^^^^ YYYY/ZZ WHERE XX IS X-RES. 
• DE $108 :VORIOBLE FOR YYYY 

.DE $128 .-SOME FOR ZZ 

■Si '^^f^^ <> 0 ^f'TER .CE - 

.DE $D3 :END OF TEXTFILE ODRESS ' 

.DE $100 ;BE6IN OF TEXTFILE , 

.DE $20 rPOINTER TO TEXTFILE V ■ 

;INIT - CHANGE ZERO P06E VECTORS ■ 
:CTRL Y GIVES JUMP TO »0 " 

liof !5 ^^"^.^^'^^ ^ 

LDO TOBELl.Xv \f' 

STO *0, X ' \ r 

DEX :.' 
BPL INITO 

: SWITCH OFF OUTPUT^ ' 
LDO #0 
STO SCREEN 
STO PRINT 
:INITIOLISE 
JSR INIT2 

JMP WORMST " 
:T0BEL1 - ZERO POGE DOTA 
TABELl .BY $4C 

.SI CTRLY 

.BY $4C 
SI USER ^ 
: CTRLY - SEND CRLF AND CONTIMyi!'':- 
CTRLY LDA #$D 

JSR OUT ■ . : . . •. ■ 

LDO #$0 

JSR OUT ■ ,:'r ' 

JMP LOOP 

;ySER - ENOBLE SCREEN. DISABLE PRINTER AND START 

STO PRINT 
EOR #5C1 
STO SCREEN 
JMP MOIN 
SEND CHORftCTER W 
TOX 

JMP OUTl 
:OUT - SEND CHOROCTER TO SCREEN 



USER 



;OUTO 
OUTO 



WITHOUT LF-8UPPRESSI0N 



dUT TOX 

BPL SUPTEST 
:OSCII > 127 
STO USED2 
STO UNDERLD 
SUPTEST CMP »$0 
BNE OUTl 
: LINEFEED : 
LDO HSIZE 
CMP TWIDTH 
BEQ 0UT2 

:SEND TO TERMINAL ? 
OUTl LDO SCREEN 

BEQ 0UT2 
TXO 

JSR OUTCH 
:SEND TO PRINTER ? 
0UT2 LDO PRINT 

BEQ EHDOUT 
TXO 

JSR PRINTER 
ENDDUT CPX *$A 



I GRAPHIC con, REKJCE DUTY CYCLE 



IF WIDTH-TERMINAL WIDTH, DON'T SEND TO TERMIW 



KEIMMI 



9065- DO 03 
f©i|^ 20 71 f5 



906B- 05 21 
906D- C5 D4 
906F- DO 04 
9071- fi5 20 
9073- C5 D3 

9075- BO 2B 

9077- 00 00 

9079- 02 01 
907B- Bl 20 
907D- 8D 2C fft 

9080- 10 OE 



9082- ca 

9083- Bl 20 
9085- 8D OS 01 

9088- C8 

9089- Bl 20 
908B- 8D 09 01 
f08E- 02 03 



9090- 
9091- 
9092- 



18 
80 

65 20 



9094- 85 20 
9096- 05 21 
9098- 69 ©0 
9O90- 85 21 

909C- OD 2C 90 
909F- 29 7F 
9001- 60 

Wm- 20 89 91 

9005- OD m M 

mm^ oc 01 01 



90ftB- 
900D- 



85 20 
84 21 



900F 
90B1 
90B3 
90B6 
90B9 
90BB- 8D 09 01 



00 00 
Bl 20 
80 OS 01 
20 SF 92 
Bl 20 



mm- m &F m 



90C1- 
90C3- 

90C6- 
90C8- 

90CB- 
90CD- 
9000- 
90D3- 

90D6- 
90D9- 
90DC- 
90DF- 



09 05 
8D 21 90 

09 40 
8D 22 90 

09 00 
8D 10 90 
8D 12 90 
8D IB 90 

80 20 90 
8D 19 90 
80 10 90 
80 IC 90 



END0UT2 
:NEXT - 



0075 
0076 
0077 
0078 
0079 
0080 
0081 NEXT 
0082 
0083 
0084 
0085 
0086 

0087 NEXT99 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 

0101 

0102 

0103 

0104 tmn 

0105 
0106 
0107 
0108 
OiOf 
0110 
0111 
0112 
0113 
0114 
0115 
0116 
0117 
0118 
0119 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 



CHECK IF END OF POSE 



BNE Eh4DOUT2 
: LINEFEED 
JSR NEWLINE 
RTS 

GET NEXT CHOROCTER FROM 'MOSER' FILE 
: CHECK IF END (F TEXT 
LDO *PNT+1 
CMP *END+1 
BNE NEXT99 
LDO «PNT 
CMP ♦END 

:END OF TEXT t CARRY SET 01©- 
BCS NEXTEND 
:GET NEXT CHARACTER, 
LDY #0 
LDX #1 
LDO (PNT).Y 
STO CCHOR 
BPL NEXTl 

:BIT 7 SET MEONS EW) OF LIHE 
;GET LINE NUMBER 
INY 

LDO (PNT),Y 
STO LINENR 
INY 
LDO 




NEXTEND 
1INIT2 - 
iNIT2 



RETURN TO 'MOSER' 



90E2- 80 23 90 
90E5- 8D 27 90 
I- 20 11 91 



0129 
0130 
0131 
§132 
0133 
0134 
0135 
0136 
0137 
0138 
0139 
0140 
0141 
0142 

m 

0145 
0146 

0147 
0148 
0149 
0150 
0151 



(PNT), Y 
STO LINENR+1 
LDX «3 

:flDVONCE PNT TO NEXT CHOROCTER IN TEXT 
CLC 
TXO 

ODC »PNT 
STA «PNT 

LbA »p»in-*i 

ADC #0 
STO *PNT+1 

; FETCH COPY OND MASK BIT 7 
LDO CCHOR 
OND ««01111111 

rts 

:end of text » 
jsr sendbufs 
initiolise oll voriobles and printer 
ldo begin 

LDY BE6IN'«-1 
;PNT TO START OF TEXT 
♦PNT 
*PNT+1 

:AND LINENR TO FIRST LINE 
LDY #0 
LDA (PNT),Y 
STO LINENR 

LDA 

STO LINENR+1 

: FIRST CHOROCTER IS AFTER LINE NUMBER 
ISR INCPNT 

: PARAGRAPH TABULATION » 5 
LDA «5 
STA PTAB 

; TERMINAL WIDTH « 64 
LDA «64 
STO TWIDTH 

; DON'T USE SECOND BUFFER. UNDERLINE. PFHSES 
LDO *0 
STO USE2 
STA UNDERL 
" POSED 

**1 FILL START AT TOP OF PAGE 0 

STA VCNT 
STA VCNT+1 
STO POGE 

:NORMOL CHOROCTERS. NO LINEFEED AFTER PASS 1, COMPRESSED MOM 
STO OFFSET 
STO CTRL 
JSR htttODE 



OEj— B ^ I ^ J — * KEiMNER 











0152 




; DON'T (XNfTIMJi fMi^ PRIORS. 8 LINES/IMQH • 


90EB- 


fl9 


01 




0153 




LDO #1 


90ED- 


8D 


12 


01 


0154 




STO CONTFL 


90F0- 


20 


3B 


91 


0155 
0156 




JSR VMODE 

; LINEFEED AFTER P9IBS 2 fMD 3 


90F3- 


09 


00 




0157 




LDO ««0 


90F5- 


8D 


28 


90 


0158 




STO CTRL+1 


90F8- 


8D 


29 


90 


0159 
0160 




STO CTRL+2 
:P06ES CF 11 IICH 


90FB- 


09 


02 
25 




0161 




LDO #$2 


90FD- 


8D 


90 


0162 




STO PSIZE+1 


9100- 


09 


10 




0163 




LDO #$10 


9102- 


8D 


24 


90 


0164 
0165 




STO PSIZE 

:STOP OFTER EOCH POSE 


9105- 


09 


FF 




0166 




LDO #255 


9107- 


8D 


26 


90 


0167 
0168 




STO BSIZE 

: CLEOR BUFFERS 


giOfl- 


20 


5D 


91 


0169 
0170 




JSR CLEORBUFS 
jSEND CR OND LF 


910D- 


20 


85 


91 


0171 




JSR SENDBUFS 


9110- 


SO 






0172 
0173 


;HMODE - 


RTS 

SET CHOROCTER OND LINE WIDTH 


9111- 


8D 


2E 


90 


0174 


HMODE 


STO TEMP 


9114- 


8D 


16 


90 


0175 
0176 




STO HM 

: MULTIPLY flCCU BY 5 


9117- 


00 






0177 




OSL 0 


9118- 


00 






0178 




OSL A 


9119- 


18 






0179 




CLC 


SUfl- 


6D 


2E 


90 


0180 




ODC TEMP 


911D- 


00 






0181 




:5END FOUR COOES FROM TOBLE TO PRINTER 






0182 




TOX 


91 lE- 


00 


04 




0183 




LDY #4 


9120- 


BD 


33 


90 


0184 
0185 


HMl 


LDO HOR, X 

: DON'T SEND ZEROES 


9123- 


FO 


03 




0186 




BEQ HM2 


9125- 


20 


OC 


40 


0187 




JSR PRINTER 


9128- 


E8 






0188 


HM2 


INX 


9129- 


88 






0189 




DEY 


9120^ 


DO 


F4 




0190 
0191 




BNE HMl 

:5TH IN TOBLE IS LINE WITDH 


912C- 


BC 


33 


90 


0192 




LDY HOR. X 


912F- 


8C 


14 


90 


0193 
0194 




STY HSIZE 

: CLEOR BORDERS 


9132- 


8C 


20 


90 


0195 




STY RBORD 


9135- 


09 


00 




0196 




LDO #0 


9137- 


8D 


IF 


90 


0197 




STO LBORD 


9130- 


BO 






0198 




RTS 










0199 


;VMODE - 


SET LINES/ INCH 










0200 


•THE FORM FEED ROUTINE EXPECTS VMQDE 1 Til 86 A 










0201 




;OND VMODE 0 NOT 


913B- 


8D 


2E 


90 


0202 


VMODE 


STO TEMP ' 


913E- 


8D 


17 


90 


0203 
0204 




STO VM 

; MULT I PLY ACCU BY S 


9141- 


00 






0205 




OSL A 


9142- 


00 






0206 




OSL A 


9143- 


la 






0207 




CLC 


9144- 


6D 


2E 


90 


0208 




ODC TEMP 


9147- 


00 






0209 
0210 




•SEND F(XJR CODES (BUT NO ZEROES) TO DRTMTPR 


9148- 


00 


04 




0211 




LDY #4 


914fl- 


BD 


5B 


90 


0212 


VHl 


LDO VER,X 


914D- 


FO 


03 




0213 




BEQ VM2 


914F- 


20 


OC 


40 


0214 




JSR PRINTER 


9152- 


EB 






0215 


VM2 


INX 


9153- 


88 






0216 




DEY 


9154- 


DO 


F4 




0217 




BNE VMl 


Q i 

rljD— 


oU 


SB 


9H 


0218 




:gTH^iN TOBLE IS Li«E Miiitfr mmm mm intoii 


0219 






9159- 


8D 


15 


90 


0220 




STO VSliE 


915C- 


60 






0221 




RTS 


915D- 


02 






0222 


:CLEORBUFS - CLEOR ALL BUFFERS em «tliEB* FUI^ 


00 




0223 


CLEflRBUFS 


LDX #0 


915F- 


09 


20 




0224 




LDO #' 


9161- 


8D 


2B 


90 


0223 




STA LCHOR 


9164- 


9D 


84 


98 


0226 


CL£1 


STO BUF1,X 


9167- 


9D 


08 


99 


0227 




STA BUF2,X 


916A- 


m 


8C 


99 


Q22B 




STA BUF3 , X 



7 J>l«w 














3 IDC"" 




AA 




A^TA 




r^y Am ipi pm 




L/v 


P'> 




A^TI 
UXOX 




nuP Pi PI 
Drat uutx 














• PI POP TUP PI QISQ 
' uLtHK 1 nt rL.HU9 


Q1 7'?— 


QP 
Ht 


1 A 


QO 
7H 


AOTT 




1 n¥ 1 ICFO 




AP 
Dt 


X X 


QO 
7H 


AOT/i 




CTY 1 icpno 


Q 1 7A— 


OP 
Ht 


Xd£ 


QO 
7H 






1 ny 1 iKinPDi 
L.X/A uni/triu 


Q1 7R— 


ftp 


1 








QTV 1 iKinPRi n 














• QTQPT QT 1 PPT RADnPR 


Ql 7C— 


QP 
Ht 


1 C 

1 r 


QO 
7H 


AOTA 




1 nv 1 Rnon 


Ql AI — 


AP 
Ot 


1 A 
X 0 


QO 
7M 


A^TQ 




a 1 A nura i 










O'JAO 




T\ 1 a 










A'^AI 
v^^X 


■ QPMnm iPQ 


— CPKin TUP Dl IPPPDC Tn CPDPPKf AKin /no nDTMTCl 

atNU 1 nt DurrtKs lU sUnttN HNU/UK PKxNTcl 


7 1 dD 


on 

HU 


*.H 


QO 
7H 




cpMniu IPC 


1 no PTi 1 

l_i/H r X UL 




Pi"i 
r U 


AC. 




AO/i T 
Uwl40 




DPn CPA 

DtU atU 




i 










■ PTI 1 /\A MPAMC PTI 1 ni IT 1 tkSCB 

:rxL.L\/U rntHNa rxLL. OUT UlnBS 










AO A"! 




aPTDCT Oi 1 Tn TUC 1 CCT 

; r 1 Kb 1 HLL 1 U 1 He Ltr T 




*v 




QA 






TCD CLIPPD 

J arc awttK 










f\'~>/i'7 




■ TUPKI PTI 1 ni IT 

; 1 ntPi r XLL UU 1 


Q l An— 




An 


Q7 


A'JAA 




TCD PTI 1 ni IT 

J an r X LLuu 1 










AOAQ 
UZ*»7 




■ QKIVTUTKin T Kl DIIP1 O 

:HNYinxNb xN oUrl f 














■ TP wriT nnw* t nn dqccs i 

, X r INU 1 , UUn 1 i/U KHSI9 1 


-7 1 


OP 
nt 


1 A 
X 0 


QO 
7M 


A'JSI 
\J^^ X 


QFA 


1 nY UPMT 


^ i 


OA 
Hv 


AA 
UU 




A'?"!'? 




1 nv #4lA 




PP 

tu 


1 p 

X r 


QO 
7H 


A9ST 




PDY 1 Rnon 


Oft— 




AP 








DPn CP 1 A 

Dtu atxu 














« DQCC 1 • DDTKIT DIIP1 


q 1 qo— 


D 7 


AA 


QA 
70 




QP1 


1 nQ Rl IPI V 


y i 




TP 


QA 






TCD ni IT 

J an UU 1 




PA 






AOSA 




T WV 
X In Y 




PP 


1 A 

It* 


QO 
7H 


AOSQ 




POV UCT7P 


Ql OA— 


nA 


PA 




A7AA 




RMP CP1 

Dpft atx 










n'~'fii 




■ QPKin PD QKin TP LIQKITPn 1 TKIP pccn 

" atiNU L»(t Hnu ir WHNitJJ LXNt rtcU 


Ql Q^— 


OQ 

M 7 


vx/ 






QF1 A 


1 no tt«n 

1— l^H wvLf 


Ql QA— 
J X HO 


9 A 


TP 


QA 
7U 






TCD ni IT 

J an UU 1 


Q1 OR— 


on 

MX/ 


97 


QO 
7M 


AOAA 




1 no PTDI 
L.IJH U 1 r\L. 


Ql OP— 


PA 


AT 




UZD3 




Rpn CP1 1 
Dtu atx X 


Q 1 DA— 


9A 




QA 

7V 


AOAt 




TCD ni IT 
Jan UU 1 










A'?A7 




« cppnMn Dl ipppD 1 iccrv o 
! atL>UNU ourrtK UatU r 










v^DO 




•TP MDT nnM* T im 0£MUB- i9 

. X r iNu 1 uun 1 wmSS i£ 


Ql DT— 
?1 DO 


on 

HU 


X X 


QQ 
7H 


AOCQ 


CP1 1 
9tX X 


1 HQ 1 iccno 


Q1 nt— 

7 X DD 


FA 

r U 


AF 




A07A 




RPn CPT 

otLi atlj 


Q 1 DA— 
3 1 do 


QA 
HU 


A A 




A071 




( nv 4A 










novo 




jh'Haa z • fclSiJW ■iHiwI MNU aPCCIRL USE iB 


Q 1 RO— 


RQ 
D 7 


AA 
Uo 


QQ 
77 


A'?7T 

uz / 0 


QFO 
DtZ 


1 no Dl IPO V 


Q1 RH- 
7 X 01/ 


9A 
Zv 


TP 


QA 
7U 


A'?7A 
VZ f *♦ 




res m it 
Jsn UU i 


Q 1 rri— 


PA 






A07^ 
UZ r D 




TMV 
XNT 


Q 1 n — 

3 X Ul 


PP 


1 /■ 

X i* 


QQ 
7H 






PCIV UCTTP 


Q 1 PA _ 


HA 


P/i 






















;stND CR AND IF MRNTED. LF 


Q1 rt— 


QCJ 
H7 


An 




A07Q 
/ 7 


CPT 

ato 




Ql PA- 

j X wO 


9A 


TP 


QA 
7V 


A9AA 




TCD ni IT l^ 

jan UU 1 ♦ 


Q1 PR- 


on 

HU 


OA 
Zo 


QQ 
7H 


AOA 1 
X 




1 nA PTDI J. 1 


Ql PF— 


FA 


AT 
uo 








RPn CPTA 

Dtu atijU 


Ql no- 

7 X X/v 


■7A 


TP 


QA 
7v 


A'JAT 




TCD ni IT 
J an UU 1 














• Rl IFT 1 ICPn "J TP WTIT TWHU' T Rfl CMSecS T 

,ouro uatu r ir nu l X/UN l UU r'nas Jt 


7 X Uu 


on 

ML/ 


1 T 
X 1.J 


QQ 
7M 




QFTA 


1 nQ 1 iKinPDi n 


Q1 nc— 

7 X UD 


FA 


1 R 




A^AA 




Rpn cpc% 
otbi ato 


Q 1 nA— 
7 X uo 


QA 
HU 


AA 
UU 




AOA7 




1 nv ttA 














■ Dncc T * 1 Hkimpot TMir 
: KHaa .3 • LmUknLIraB 


Q1 no— 

7 X UH 


RQ 
D 7 


AP 


QQ 
77 


AOAQ 


CPA 
9t4 




Ql nn— 

7 X jL/i/ 




TP 


QA 


A9QA 




TQR rU IT 
Jan lAli 


Ql Frt— 

7 X 


PA 






AOQ 1 
vZ7 X 




INT 


Ql PI — 

7 X QX 


PP 


1 A 
X *+ 


QQ 
7M 






PDV UCT7P 
UKY naXZc 


Ql PA— 
7 X tl<+ 


nA 


FA 




A'JQT 




RKIP CP/i 

orat at<» 










A'JQA 
V.(fc7** 




■ CPKin PD AKin TP LIOklTCm 1 IT 

: atNU Ln UNO Ir WrWTu/, LF 


Q1 PC — 


OQ 
H7 


An 




AOQ^ 




1 nA lift 


91E8- 


20 


TP 


90 


A7QA 
70 




TCD ni IT 

Jon UU 1 


Q 1 PR— 
7 X CD 


on 


Z 7 


QQ 
7H 


Aoa7 

UZ7 / 




LUH C, I RL+2 


91 EE- 


FO 


03 








Rpn CPS 
jDtui athj 


91F0- 


20 


3C 


90 


0299 




«j an UU 1 


91F3- 


2C 




m 


ATAA 






BO 


0301 


SE5 


BIT BREAK 


91F6- 


30 


06 




0302 




BMI SOCL 


91F8- 








0303 




: BREAK : CLEAR BUFFERS AND BOTO ' MOSER' 


20 


5D 


91 


0304 




JSR CLEARBUFS 


91FB- 


4C 


03 


20 


0305 




JMP WARMST 



ETC.) 



8 



5 a s 



KEIMIMER 



91FE- 4C 

^1- 20 

9204- AD 

9207- 10 
9209- 09 
920B- 8D 
i@@E«- 00 

itiO- 20 
«tl3- C9 

92i5- DO 
7- AC 



mtt^ ti 

921B- 6D 
92 IE- ftft 



5D 91 

fl5 90 

2B 9A 

07 
20 

2C 9fl 
03 

SB 90 
SB 

03 

17 93 



23 90 



921F- 
9222- 



OD 2B 90 
29 7F 
9224- C9 20 
9226- 8D 2B 90 

9229- DO 05 
922E* m . 

922E- FO 04 

9230- 80 



9231- 
9234- 



20 37 92 
4C 04 92 



9237- OE 18 90 
mm- 9D 84 98 

923D- flC 10 90 
9240- FO 03 
9242- 9D 08 99 
9245- 48 



9246- 
9249- 
924C- 

9251- 
9254- 
9255- 
9258- 



OD 2C 90 
8D 2B 90 
00 12 90 
FO 03 

90 8C 99 
68 

EE 18 90. 
OC 18 90 
^ 20 SO 



DO 06 



9260- 20 70 92 
9263- 20 85 91 

9267- 05 20 

9269- DO 02 
926B- C6 21 
926D- C6 20 

'laiF* so 

9270- 00 00 
9272- Bl 20 
9274- 29 7F 
9276- C9 20 



0306 
0307 
0308 
0309 
0310 
0311 
0312 
0313 
0314 
0315 
0316 
0317 
0318 
0319 
0320 
0321 
0322 
0323 
0324 
0325 
0326 
0327 
0328 
0329 
0330 
0331 
0332 
0333 
0334 
0335 
0336 
0337 
0338 
0339 
0340 
0341 
0342 
0343 
0344 
0345 
0346 
0347 
0348 
0349 
0350 
0351 
0352 
0353 
0354 
0355 
0356 
0357 
L035a 
0359' 
0360 
0361 
0362 
0363 
0364 
0365 
0366 
0367 
0368 
0369 
0370 
0371 
0372 
0373 
0374 
0375 
0376 
0377 
0378 
0379 
0380 



LINE ? THEN EXTIW 0^ 



NDXTROSP 
XTROSP 



N0CCN4 



;N0 BREOK : CLifjA iUPf^RS k 
BOCL JMP CLEORBUFS^^ »«rriinji 

;MflIN - MOIN PR06R0M 
MAIN JSR INIT2 

iloop* " "^^LDoTcHOR®^"'' ^^"^^^ mmmmmm to mwfsn 

;END OF ' MOSER' 
BPL NOXTROSP 
LOO #' 

STO CCHOR : 
BNE XTROSP 

; ELSE JUST BET NEXT CHOROCTER 
JSR NEXT 
CMP #' C 

:OOES 0 COMMAND BEGIN HERE ? i 

BNE NOCOM 
JMP COMM 

;N0 COMMOND, SO JUST PUT TO BUFFER 
CLC 

: OFFSET IS ADDED FOR SROPHICS 
OOC OFFSET 
TOX 

;WOS LOST CHARACTER A SPACE ? 
LOO LCHOR 
OND #*01111111 
CMP #' 
STO LCHOR 
BNE NOSP 
TXO 

;0N0 IS THIS CHOROCTER 0 SPACE ? 
CMP #' 

:IF BOTH WERE SPACES, FORGET THIS SPAQf 

TXA ' ' 

JSR PUT 
JMP LOOP 
;PUT - PUT 0 CHOROCTER TO BIFFER 
LDX HCNT 
STO BUF1,X 

:IF WONTED, TO SECOND BUFFER 
LDY USE2 
BEQ N0T2 
STO BUF2,X 
PHfl 

: REMEMBER THIS. 
LOO CCHOR 
STO LCHOR 
LOO UNOERL 
BEQ NOUNOE 
;IF WANTED, 
STA BUF3,X 
PLO 

INC HCNT 
LOY HCNT 
CPY RBORD 

:RISHT HONO BORDER REACHED ? 
BNE ENDPUT 

;IF SO, PRINT LINE ^ 
: DON'T CUT W0R|»,,1I| W 
JSR CUTOFF 
; PR I NT BUFFERS 
JSR SENDBUFS 
RTS 

(TWO BYTE DECREMENT) 

- 2'/ 



NOSP 



PUT 



N0T2 



NOUNDE 



UNDERLINE 



ENDPUT 

:DECPNT 

dE^NT 



DECl 



PNT := PNT-: 
LOO *PNT 
BNE DECl 
DEC «PNT+1 
DEC *PNT 
RTS 



jCUTOFF - MOKE SURE WORDS AREN'T SPLIT 
CUTOFF LDY #0 



LDY #0 

LOO (PNT),Y . :..„^c. 

AND #*7F . cn-y^' 

CMP #• ^ t^.i;/ 

:IF NEXT CHARACTtil tS^^^Bmm i NO 



9 



KENMEIR 



0381 iSeSE^QTO NOSPffi:E 

9278- DO 30 0382 mewmkm 

9270- 60 0383 RTS 

0384 ;LftST - £»SP0SITE OF NEXT 

927B- 20 67 92 0385 LftST M fECPNT ' ^ ann i 

927E- 20 67 92 0386 ^ McPNT 

9281- 20 67 92 0387 JSR DECPNT . 

9284- 00 00 0388 LDY #0 

9286- Bl 20 0389 LDO (PNT),Y 

^HS- C9 f F 0390 CMP #»9F 

92»-B0 0E ^ ^ByTK,.9F PRE MOSERS END OF LINE BYTES ' t 'T' t-'f 

«aC- 20 8F 92 §11? 5^ !13?pS? ™' 

0395 -INCPNT - PNT := PNT+1 (TWO-BYTE INCREMENT) 

92aF- E6 20 0396 InCPNT INC »PNT iwuixcntwi/ 

9291- DO 02 0397 BNE LOl \; ' 

9293- EE 21 0398 INC *PNT+1 . 

9295- Bl 20 0399 Lfil LDO (PNT),y ' 

0400 .LI M3R0PR.IK@^ 



1- - >.=*'yi.c 



F02 


ICfifi 4292 


-5F1A 








04.00 




9297- 


C9 9F 


0401 






fiO 


0402 








040"? 




9290- 


C8 


0404 


L02 


929B- 


48 


0405 




929C- 


Bl 20 


0406 




929E- 


8D 08 01 


0407 




9201- 


C8 


0408 




9202- 


Bl 20 


040*i 




9204- 


SD 09 Ol 

OL/ 


0410 




9207- 


68 

WW 


0411 




9208- 


38 


0412 




9209- 


60 


0413 








0414 




9200- 


20 7B 92 


0415 


NDSPOCE 






0416 




920D- 


BO 06 


0417 




920F- 


29 7F 


0418 




92B1- 


C9 20 


0419 




92B3- 


DO F5 


0420 




92B5- 


20 SB 90 


0421 


NOl 






0422 




92B8- 


OE 20 90 


0423 




92BB- 


CO 


0424 




92BC- 


BD 84 98 


0425 


N02 


92BF- 


eg 20 


0426 




92C1- 


FO 03 


0427 




92C3- 


CO 


0428 




92C4- 


DO F6 


0429 








0430 




92C6- 


09 20 


0431 


N03 


92C8- 


9D 84 98 


0432 




92CB- 


9D 08 99 


0433 




92CE- 


9D 8C 99 


0434 




92D1- 


E8 


0435 




92D2- 


EC 20 90 


0436 




92D5- 


DO EF 


0437 






g# ' 


0438 




92D8- 




0439 


: DECIM - 


09 00 


0440 DECIM 


92Dfl- 


8D 2D 90 


0441 




92DIH 20 6B 90 


0442 


DECIHl 






0443 




92E0- 


C9 27 


0444 




92E2- 


FO OC 


0445 








0446 




92E4- 


20 B8 96 


0447 




92E7- 


iO OE 


0448 








0449 




92E9- 


20 7B 92 


0450 






m 20 90 


0451 






m 


0452 








0453 





-a 'J. 



;ONOTHER END OF LIHE CHECK -a- • 

CMP #*9F 
RTS 

:END OF LINE FQUNDs SOVE LINE NUMBER 
INY 

PHO V- , 

LDO (PNT), Y 
STO LINENR 
INY 

LDO (PNT),Y , r. -p 

PL« ■ • ,: ,. .v.^a 

SEC 'o 
RTS 

•NO SPOCE MAS FOUND! THIS WORD SOES TO THE NEXT LINE 

JSR LOST i 
: MOVE BOCK UNTIL fl SPOCE OR END OF LIIIE IS FOUND 

BCS NOl u. , OL-vf' 

OND #*7F , rr • 

CMP #' c ;-v.-. 

BNE NOSPOCE - 
JSR NEXT 

:D0 THE SOME IN BUFl 

LDX RBORD 
DEX 

LDO BUFl.X 
CMP #' 
BEQ N03 
DEX 

BNE Na2 

:MOKE THE EKffi BF THE LINE ftLL 
LDO #' 
STO BUF1,X 
STO BUF2,X 
STO BUF3.X 
INX 

CPX RBORD - f- V 

BNE N03 

RTS 

R^?^ ~ "^^LDO^So^ DECIMAL NUMBER OR ASCII VALUE 

STO NUMB 
JSR NEXT 

:^pFOUND MEANS ASCII CODE FOLLOWS U ij.. .-.it 

BEQ ASCII ' ' 

:TEST WHETHER IT'S A NUMBER 
JSR NUMTEST 
BPL DECIM3 

;NOT A NUMBER, MOVE Al^ EXIT 

JSR LAST 



to 



; ASCI I mm. Mtm it exit 



2^Ei s a e 



92F0- 


■ 20 &B 


90 


0454 


92F3- 


■ 8D 2D 


9A 


0455 


g2F6- 


- 60 




0456 
0457 


92F7- 


■ 38 




0458 


92F8- 


■ E9 30 




0459 


92Ffl- 


- 48 




0460 
0461 


92FB- 


• ftD 2D 


9ft 


0462 
0463 


92FE- 


• OE 2D 


9ft 


0464 


9301- 


OE 2D 


9ft 


0465 


9304- 


■ 18 




0466 
0467 


9305- 


6D 2D 


9ft 


0468 
0469 


9308- 


OA 




0470 


9309- 


8D 2D 


9fl 


0471 


930C- 


68 




0472 
0473 


930D- 


18 




0474 


930E- 


6D 2D 


9ft 


0475 


9311- 


8D 2D 


9ft 


0476 


9314- 


4C DD 


92 


0477 
0478 
0479 
0480 


9317- 


20 6B 


90 


0481 


931ft- 


C9 4C 




0482 


931C- 


DO 03 




0483 


931E- 


4C E6 


93 


0484 


9321- 


C9 52 




0485 


9323- 


DO 03 




0486 


9325- 


4C Ofi 


94 


0487 


9328- 


C9 44 




0488 


932fl- 


DO 03 




0489 


932C- 


4C 27 


94 


0490 


932F- 


C9 48 




0491 


9331- 


DO 03 




0492 


9333- 


4C 2D 


94 


0493 


9336- 


C9 56 




0494 


9338- 


DO 03 




0495 


933fl- 


4C 38 


94 


0496 


933D- 


C9 55 




0497 


933F- 


DO 03 




0498 


9341- 


4C 43 


94 


0499 


9344- 


C9 3ft 




0500 


9346- 


FO CF 




0501 


9348- 


C9 32 




0502 


934fl- 


DO 03 




0503 


934C- 


4C 68 


94 


0504 


934F- 


C9 31 




0505 


9351- 


DO 03 




0506 


9353- 


4C 71 


94 


0507 


9356- 


C9 57 




0508 


9358- 


DO 03 




0509 


935fl- 


4C 79 


94 


0510 


935D- 


C9 4ft 




0511 


935F- 


DO 03 




0512 


9361- 


4C 82 


94 


0513 


9364- 


C9 45 




0514 


9366- 


DO 03 




0515 


9366- 


4C 07 


94 


0516 


936B- 


C9 54 




0517 1 


936D- 


DO 03 




0518 


936F- 
9372- 


4C BO 


94 


0519 


C9 2E 




0520 1 


9374- 


DO 03 




0521 


9376- 


4C B4 


94 


0522 


9379- 


C9 4F 




0523 1 


937B- 


DO 03 




0524 


937D- 


4C E6 


94 


0525 


9380- 


C9 53 




0526 1 


9382- 


DO 03 




0527 


9384- 


4C F8 ' 


94 


0528 


9387- 


eg 50 




0529 1 


9389- 


00 03 




0530 



ftSCII 
DECIM3 



;COMM 
CCNW 

NOL 
NOR 
NOD 
NOH 
NOV 
NOU 

N0T2C 
NOTl 
NOU 
NOJ 
NOE 
NOT 

NOO 



JSR NEXT 

STA Nlff® -r^' , 

RTS 

^T'S fl mme^x NUHB«NUI«®»l(H-|fMii NUM9ER) 

SBC #»30 ^ 
PHA 

:NUMB»10*Nt»ffi MiANS NUMB<<i^(NUMB+4«NUNi) - ' 

LDA NUMB 

: MULT I PLY BY FOUR 
ASL NUMB 

ASL mm 

CLC 

:ftDD ONE TI»«E 

ftDC NUMB 

; MULTIPLY BY TWO 

ASL A 

STA MUMB 

PLA 

:ADD (THIS NUMBER) 

CLC ■ ^ 

ADC NUMB r. . 

STft NUMB 
JMP DECIMl 
MftIN LftBEL OF COMMftND MODE 

:WHftT FOLLOWS IS ft SKIP LIST OF COHmANOS v > ' 
jlJ'S^RflTHER L0N6 AND SIMPLE- mjBml^n ^ 



CMP #'L 
BNE NOL 
JMP LCOM 
CMP #'R 
BNE NOR 
JMP RCOM 
CMP #'D 
BNE NOD 
JMP DCOM 
CMP «'H 
BNE NOH 
JMP HCOM 
CMP #'V 
BNE NOV 
JMP VCOM 
CMP #'U 
BNE NOU 
JMP UCOM 
CMP #' : 
BEQ COMM 
CMP #'2 
BNE N0T2C 
JMP C2C0M 
CMP #'1 
BNE NOTl 
JMP CI COM 
CMP «'W 
BNE NOW 
JMP WCOM 
CMP #'J 
BNE NOJ 
JMP JCOM 
CMP #*E 
BNE NOE 
Jl«> ECOM 
CMP #'T 
BNE NOT 
JMP TCOM 
CMP #'. 
BNE NOPER 
JMP PERCOM 

CMP ro 

BNE NOO 
JMP OCOM 
CMP i'S 
BNE NOS 
JMP SCOM 
CMP tt'P 
BNE NOP 



61 1 het ter oerse qaan van deze editie bleek dat in 
het Printer Facilities Proarai van het artikel Word 
Processino Hith Carl Moser's Ttxt Editor v«i auteur 
Hans BuuFMn toeh mq Mn hliipi^wrfetfaHil|r 
te zim. T', . 

Reoel 1 16 had iWrtwi i«f*» «mnM dtif IS »» 

Deze kleinioheid kan echter sml VH4l»lilir^ liliMi 

door de voldende Hiizioina: 

90fi2 4C B3 9fl JMP LABEL 

9fl83 20 85 91 LABEL JSR SENDBUFS 
9A86 4C 03 20 JNP iMffiST 



HIJ STfiflN OP DE H.CC.-COMPUTERDAGEN 16 EN 17 NOV 19M 
JAARBEURS UTRECHT . 
ONTMOET DAflR ONS 6502-TEA« ' • 





11 







OF 


95 


0531 




7wwb 


C9 


2B 




0532 NOP 


9390- 


DO 


03 




0533 




9392- 


4C 


24 


95 


0534 








42 




0535 


NOPLUS 




no 


OT 




0536 








2D 


95 


0537 








41 




NOB 




DO 


03 




0*1 "^9 










95 


0540 








AQ 






lYun 




DO 


03 

Vw 










LP 


PP 










ro 












i/v 


v«-> 












AP 




0546 












0547 


NORC 














93B5- 


4C 


42 


96 


0549 












0550 


NOF 




DO 


03 




0551 




93BC- 


4C 




96 








C9 


43 




0553 


NOK 




DO 


03 




0554 




93C3- 


4C 


08 


Q7 


0555 






C9 


51 




0556 


NOC 


93C8- 


DO 


03 




0557 




93Cfi- 


4C 


ID 


98 


0558 
0559 


NOQ 




BD 


28 


01 


0560 






A2 


BC 




0561 






4C 51 


OA 


0562 












0563 


: COMCOM 




20 


6B 




0564 COMCOM 








0565 






C9 


3ft 




0566 




FO 


07 




0567 
0568 




93DC- 


C9 


5D 




0569 






DO 


F5 




0570 






4C 


04 


92 


0571 






4C 


17 


93 


0572 
0573 


TOCDM 
;LCOM - 




-20 D8 92 


0574 


LOOM 










0575 




PTFQ— 


CD 


14 


9fl 


0576 




93EC- 


BO 


14 




0577 






BD 


IF 


9ft 


0578 
0579 






CD 


18 


90 


0580 






90 


03 




0581 






8D 


16 9fl 


0582 












0583 




93F9- 




21 


9fi 


0584 


LCOMi 


.^^^^ 




2D 9 ft 


0585 






ts- 


#4 


0586 
0587 






fl2 


30 




0588 


ERR30 




30 28 01 


0589 






m 51 94 


0590 












0591 


:RCOM - 


940fi- 


20 Da 92 


0592 RCOM 










0593 




9dOD- 


FO 


F3 




0594 






CO 


14 


9ft 


0595 






iO EE 




0596 












0597 




9414- 


CD 


18 9A 


0598 




9417- 


FO 


05 




0599 




9419- 


BO 


03 




0600 




941B- 


20 


85 


91 


0601 
0602 




941E- 


AD 2D 


9ft 


0603 


RCOMl 


9421- 


8D 1^ 91) 


0604 




9424- 


m Ft «S 


0605 












0606 :DCOM - 

0607 DCOH 


9427- 


20 S5 91 



JMP 
CMP 
BNE 
JMP 
CMP 
BNE 
JMP 
CMP 
BNE 
JMP 
CMP 
BNE 
JMP 
CMP 
BNE 
JMP 
CMP 
BNE 
JMP 
CMP 
BNE 
JMP 
CMP 
BNE 
JMP 
CMP 
BNE 
JMP 



PCOM 
#' + 

NOPLUS 

PLUSCOM 

»'B 

NOB 

BCOM 

#'fl 

NOft 

ftCOM 

#' I 

NO I 

I COM 

#'» 

NORC 

RCCOM 

#'F 

NOF 

FCOM 

#'K 

NOK 

KCOH 

#'C 

NOC 

CCOM 

#'Q 

NOQ 

QCOM 



ASM 65C 65CXXX-CR0SS-fiSSEMBLER VI. 0 

FOR SENIOR MONITOR 
( = JUNIOR-coftD. Hith PROTON D.O.S. ) 

The fiSM 65C BSCXXX-CROSS-ftSSEWBLER handles all new 
instructions of 65C02-Drocessors and is fullv coioa- 
table with 6502. Author: R. Banen. Schiedaa. The 
Netherlands. Metorv soace needed: $3000 - $3860. 
Cotolete source listina available. Enqlish versions 
Fl. 52,50 inch oostaoe, oackinq, adiin, etc. 
Foreiqn countries (CEPT countries excl. ) Fl. 6.75 
extra transfers. 

.L van Pelt, oostal account nr. 
.d. IJssel, or to bank-account nr. 
U.L. van Pelt AMRO-Bank at 
Eurocheoue allowed. 



To be oaid to Mr. U. 
84U33 at Kriaoen a. 
44.11.06.471 of Mr. 
Kriaoen a.d. IJssel. 



LftAT UW ZELF ONTWIKKELDE PROGRflMMfl'S VOOR UW C-64. » 

APPLE BBC. OSI. PET. ETC. ETC. NIET LISBEN. MftflR » 

STUUR HET OP NflftR DE REDflKTIE. U HELPT ER NIET flL- » 

LEEN ftNDEREN MEE. U HELPT HEN ER OOK MEE IDEEEN » 

TE ONTWIKKELEN DIE WEER GEPUBLICEERD KUNNEN WOR- * 

DEN. EN DAT IS UW BELAN6 ! » 

8SCSSSS& 



:UNKNOUN COMMAND: BC ERROR ! 
STO FILENR 
LDX «*BC 
JMP ERROR 

COMMON RETURN fiDRESS FOR ALL COMMANDS 
JSR NEXT 

;: MEANS OTHER COMMAND FOLLOWS 
CMP #' : 
BEQ TOCOM 

MEANS END OF COMMANDS 
CMP #'] 
BNE COMCOM 
JMP LOOP 
JMP COMM 
LEFT BORDER COMMAND 
JSR DECIM 

:MAY NOT BE LARBER THAN LINE LENGTH 

CMP HSIZE " " 

BCS ERR30 
STA LBORD 

:IF TO THE RIGHT OF PRESENT POSITION, CHANGE THE LATTER 
tm HCNT 
BCC LCOMI 
STA HCNT 

; THERE MUST STILL BE ROOM FOR PARAGRAPH TABS 

LDA PTAB • ■-' 

STA NUMB 
JMP JCOMl 
; ERROR 30 MESSAGE 
LDX #*30 
STA FILENR 
JMP ERROR 
LEFT BORDER COMMAND 
JSR DECIM 

:MUST BE INSIDE THE LINE 

BEQ ERR30 
CMP HSIZE 
BCS ERR30 

:IF TO THE LEFT OF CURRENT POSITION, START NEW LINE 
CMP HCNT 
BEQ RCOMl 
BCS RCOMl 
JSR SENDBUFS 
: THERE MUST BE mm FOR 
LDA NUMB 
STA RBORD 
JMP LCOMI 
START NEW LINE 
JSR SENDBIFS 





m m 


cnc 












0609 


942D- 


20 


D8 


92 


0510 


S430- 


29 


07 




0611 


''il A v% 

9432- 


20 


11 


91 


0612 


9435- 


4C 


D5 


93 


0613 
0G14 


943o- 


20 


08 


92 


061S 


943- 


29 


07 




0616 




m m 




0617 




4€'' 'S9 




A£ 4 a 










0&19 


a.A AV 

9443- 


20 


D8 


92 


0&20 


9446- 


BD 


12 


90 


0621 


9449- 


FO 

m 


03 

11 




0622 
0623 


'Mob- 


m 


lis 


13 


0624 
0625 


9451- 


05 


20 




M^ 

0626 


9453- 


48 






A^ 

0627 




05 21 






9456- 


48 






ACTA 


9457- 


20 


7B 


92 


VD>J A 


?«**JH— 


90 


FB 






O/i W— 
?«»Dw— 


20 


4B 




Uooft 


t45F- 


68 








9460- 


85 


21 




0636 


9462- 


68 






0637 


9463- 


85 20 




AC Yll 

0638 


94«S- 


m m 


OT 


A£ 

0639 






0640 


n A f a 

9468- 


8D 


10 


9m 


A£ A 4 

0641 


946B- 


8D 


11 


90 


0642 


i46i- 


4C m 


93 


0643 








AC A A 


1F471- 


09 


00 




AC AR 

0645 


^A*W 

1473- 


8D 


10 


90 


AC AC 

0646 


■f47i!- 


m m 


93 


0647 








0648 


9479- 


20 


D8 


92 


0649 


947C- 


6D 


22 


MM 


AJ>*VA 

0650 


947F"' 


m 


ii 


33 


Af e 4 

0651 
0652 


MA MM 

94^- 


20 D8 


92 


AJ* KPT 

0653 










A^ MCA 

0654 










0655 










OoSo 


MA AK 

9480" 


18 






Af 

0557 


OA Of 

9486- 


6D 


IF 


BA 

90 


A£ Bf a 

0658 


9489- 


38 






Q659 


94afl- 


EO 


20 


90 




MA nn 


60 


04 




AJ*f 4 

0661 


Ma iUB» 


E9 FO 




0662 


9491- 


90 


OB 




ACCIP 

0553 
0664 




OD 


2D 




UboZ) 


9496— 


8D 


28 


01 


ACCC 

0666 


WW— 


02 


31 






949B- 


4C 


51 


94 


0668 

Af fa 

0669 


949E-" 


OD 


2D 


9h 


AC^A 

0670 


y4Ml"" 


80 


21 




ACT4 

0571 


Q A /\A 

^a.R4~ 


4C 


05 


QT 


AC 

U572 
Oo/o 




20 


D8 






9400- 


80 


12 


01 


0675 


940D- 


4C 


DS 


93 


0676 
0677 


94B0- 


09 


20 




0678 








0679 










0680 


94B4- 


09 


2E 




0681 


94B6- 


60 


2E 


90 


0682 


94Bi- 


20 


D8 


92 


0683 
0684 



VCOM 



;UCOM 



CCH4COM2 

:ERROR 

iRROR 



ERR0R2 



1C2C0M 
C2C0M 



icicm 

CICOM 



;MCOM - 
WCOM 



:JCOM - 

JCOM 
tJCOMl 



JCOMl 



ERRS! 



JOCC 



:ECIM - 
^COM 



:TCOM - 
TCOM 

;PERCOM 

PERCOM 

PERI 



JMP COMCXm 
CH0N6E HORIZONTAL MODE 

JSR DECIM 

AND #»111 

JSR HMODE 

JMP COMCm 
CH0N6E VERTICAL MCKNE 

JSR DECIM 

OND *%111 

JSR VMODE 

JMP comxiM 

UNDERLINE 
JSR DECIM 
STO UNDERL 
BEQ C0»CCH>I2 
STO UNDERLD 
JMP COMCCm 

- ISSUE ERROR HESSABE 

LDA *PNT 
PHA 

LDA ♦PNT+1 

pi4n 

:MOVE BACK TO START OF LINE FOR LINE NUMBER 
JSR LAST 
BCC ERR0R2 
JSR, 

STA »PNT+1 
PLA 

STA ♦PNT 
JMP COMCOM 

- PRINT EXTRA DARK 

STA USE2 
STA U^2 

JMP cmcoM 

- PRINT NORMAL 

LDA «0 
STA USE2 
JMP COMCOM 
TERMINAL UITDH 
JSR DECIM 
STA TWIDTH 
JMP corcoM 

CHANGE PARAQRAPH TABULOTION 
JSR DECIM 

- CHECK TO SEE IF, WITH PAROBROPH TOB, THE J?ESULTINB 

:LINE IS STILL 16 CHARACTERS WIDE 

: LBORD+PTAB-RBORD <«-16 

CLC 

ADC LBORD 
SEC 

SBC RBORD 
BCS ERR31 
SK #»F0 

BCC JOCC 

;LINE TOO SMALL, ERROR 31 
LDO NUMB 
STO FILENR 

LDX #»31 . ; 

JMP ERROR 

:PORAGROPH TAB PCCEPTm 

LDO NUMB 

STA PTOB 

JMP COMCOM 
ERROR CONTROL C(MMAND 

JSR DECIM 

STO CONTFL 

JMP COMCOM 
TABULOTION COMHA^B> 

LDO #' 

BNE PERI 

- TABULATE WITH PERIODS ( ) 

LDA #'. 
STO TEMP 
JSR DECIM 

! TABULATE OUT OF THE LINE TO BET A 32 ERWJR 



E 5 a s 



KEIMMI 



94BC- CD 20 9fl 
94BF- BO Ifi 



94C1- 
94C4- 
94C7- 
94C9- 
94CC- 

94D2- 
94D5- 



AD 18 9A 
CD 2D 9A 
BO 09 
fiD 2E gft 
20 37 92 

m m m 

OD 2E 9fl 
8D 2B 9fl 
4C US 93 



94DB- 
94DE- 
94E1- 
94E3- 

94E6- 
94E9- 
94Eft- 

94EC- 
94EF- 
94F0- 

94F2- 



flD 2D 9ft 
8D 28 01 
02 32 
4C 51 94 

20 D8 92 
48 

29 01 

80 IE 9ft 
68 

29 02 
8D ID 9ft 

m m 93 

20 D8 92 
FO OF 

09 20 
20 37 92 
CE 2D 9ft 
i# ¥ 6 

09 20 
6D 2B 9ft 
4C D5 93 



fair- m- m 9i 



94F8- 
94FB- 

94FD- 
94FF- 
9502- 



9507- 
9509- 



9512- 
9515- 
95 le- 
gs 19- 

951C- 
951E- 
9521- 

9524- 
9527- 
9520- 



OD 21 9ft 
18 

6D IF 9ft 
BD 18 9ft 

09 20 
dD 2B 9ft 
4C D5 93 

20 D8 92 
8D 23 9ft 
4C D5 93 



952D- OE 18 9ft 
9530- 8E 2E gft 
9533- 02 FF 
9535- 8E 11 9ft 

9538- 20 6B 90 

953B- C9 5D 
SSm- FO IE 
9B3F- C9 3ft 
9541- FO Ifl 

9543- OE 2E 9ft 
9346- 9D 08 99 
9549- E8 
9540- EC 20 9fl 
954B- »E 2e 9ft 

■mm^ m m 



0685 

0686 

0687 

0688 

0689 

0690 

0691 

0692 

0693 

0694 

0695 

0696 

0697 

0698 

0699 

0700 

0701 

0702 

0703 

0704 

0705 

0706 

0707 

0708 

0709 

0710 

0711 

0712 

0713 

0714 

0715 

0716 

0717 

0718 

0719 

0720 

0721 

0722 

0723 

0724 

0725 

0726 

0727 

0728 

0729 

0730 

0731 

0732 

0733 

0734 

0735 

0736 

0737 

0738 

0739 

0740 

0741 

0742 

0743 

0744 

0745 

0746 

0747 

0748 

0749 

0750 

0751 

0752 

0753 

0754 

0755 

0756 

0757 

0758 

0759 

0760 

0761 



PER2 



PER3 



ERR32 



;OCOM 
□COM 



;SCOM 
SCOW 



SCOMl 



SC0M2 
jPCOM 
PCOM 



CMP RBORD 
BCS ERR32 

:SEND THE SYMBOL IN f&P UNTlt lit 

LDO HCNT 

CMP NUMB 

BCS PER3 

LDO TEMP 

JSR PUT 

JMP PER2 

; SUPPRESS SPACES AFTER A TAB 
LDO TEMP 
STO LCHAR 
JMP COMCDM 

:SEND A 32 ERROR MESSAGE 
LDO NUMB 
STO FILENR 
LDX *»32 
JMP ERROR 
CHJTPUT CONTROL 



I^PPER COLUMN 



JSR DECIM 
PHO 

OND *%1 

:BITO SWITCHES TER«IN«L OUTPUT 
STO SCREEN 
PLO 

ftND #%10 

:BIT1 SWITCH^ HB^mtNTER 
STO PRINT 
JSR CDMCOM 

- SEND A NUMBER OF SPACES 
JSR DECIM 
BEQ SC0M2 
:SEND Nipi, ipACES 
LDA #' 
JSR PUT 
DEC NUMB 
BNE SCOMl 

; SUPPRESS FOLLOWING SPACES 

LDfl #' 
STO LCHAR 

JMP COMCOM ...^ , 

- START ft NEW PftRAGRAPH 
JSR SENDBUFS 
; TABULATE 

LDO mm^ 

CLC 

ODC LBORD 
STO HCNT 
:SUPPRE^ SPfiOES 
LDO #' 

STO LCHAR . 
JMP COMCOM 
SET ON DFFSm, )^'p 
JSR DECIM - 
STA OFFSET 
JMP COMCOM 
;BCt»l - SEND TEXT TO SECOND BUFFER ONLY 

:USE POSITION JN TEMP, SECOND BUFFER. 
L.OX HCNT awii 1 ■ 
STX TEMP 



V -.1 1. 



;PLUSCOM 
PLUSCOM 



BOON 



it*- f,- 




LDX #»FF 
STX USED2 
;GET CHARftI 
BCOMl JSR NEXT 

:IS IT ft TERM 
CMP #' 3 ^ 
BEQ BCOUll^:' 
CMP #' : 
BEQ BCOMEND 

rny'^?pIS ^^"^"^ 
LDX TEMP . 

STO BUF2. X 

INX ■.■ 

CPX RBORD 

STX TEMP 

;STOP IF END OF LINE REftCJCD 
BNE BCOMl 



I. * 

r i" 



c.i ■ ■ ■ 



5 D 5 



9552- 
9555- 
9557- 
9559- 



90 



20 6B 
C9 5D 
FO 04 
C9 3fl 



20 7B 92 
4C D5 93 

20 08 92 

m 37 92 

P9 01 
8D 2B 9ft 
4C 0? 93 



flD 15 9fi 
IB 

6D 19 9fi 
8D 19 9fi 
flD 1ft 9ft 
69 00 
8D Ifl 9ft 

20 ft? 95 
90 IE 



9588- flg 00 
958fl- 8D 19 9ft 
958D- 8D 1ft 9ft 
9590- flD IB 9ft 
9593- FO 11 



955D- 
9560- 

9563- 
9866- 

9569- 
956B- 
956E- 



9571- 
9574- 
9575- 
9578- 
957B- 
957E- 
9580- 

9583- 



9595- 
9598- 



flD 
18 



IC 9fl 



9599- FS 
959fl- 69 01 



959C- 



08 
80 



IC 9A 



95fl0- 20 B6 95 
9503- 20 FC 95 
95A6* 60 

95fl7- flD 1ft 9ft 
95flfl- CD 25 9ft 
95ftD- DO 06 
95flF- flD 19 9fl 
95B2- CD 24 M 
95B5- 60 



95B6- 
95B9- 
95BB- 

95B0- 
iBiO<- 

95C1- 
95C4- 

95C5- 
95C8- 
95Cfl- 
95CC- 
95CE- 
fOOO- 

95D3- 
95D6- 
9508 
95DB 



flD 26 9ft 
C9 FF 
DO 04 

20 AE 12 
60 

flD 17 9ft 
48 

flD 26 9ft 
30 04 
fl9 00 
FO 02 
fl9 01 

20 m m 

flD 26 9ft 
29 7F 
8D 2F 9ft 
1ft 



- FO 



9500- flO IE 9ft 



0762 

0763 

0764 

0765 

0766 

0767 

0768 

0769 

0770 

0771 

0772 

0773 

0774 

0775 

0776 

0777 

0778 

0779 

0780 

0781 

0782 

0783 

0784 

0785 

0786 

0787 

0788 

0789 

0790 

0791 

0792 

0793 

0794 

0795 

0796 

0797 

0798 

0799 

0800 

0801 

0802 

0803 

0804 

0805 

0806 

0807 

0808 

0809 

0810 

0811 

0812 

0813 

0814 

0815 

0816 

0817 

0818 

0819 

0820 

0821 

0822 

0823 

0824 

0825 

0826 

0827 

0828 

0829 

0830 

0831 

0832 

0833 

0834 

0835 

0836 

0837 

0838 



iTHEN SKIP THE REST 
BOMS JSR NEXT 

CMP #'3 
BEQ BCOMEI^D 
CMP #' : 
BNE BC0M2 

; TERMINATOR FOUND, MOS/E BACK AND EXIT 
BCMEND JSR LAST 

JMP COMCOM 
;ACOM - SEND AN ASCII -CODE 
ACOM JSR DECIM 

JSR PUT 

; SPACES MAY FOLLOW 
LDA #«1 
STfl LCHAR 
JMP COMCOM 

;NEWLINE - AFTER A LINEFEED, CHECK FOR END OF PASE 

; ADJUST POSITION COUMTER 
NEWLINE LDA VSIZE 



CLC 
ADC 
STA 
LDA 
ADC 
STfl 



VCNT 
VCNT 
VCNT+1 
#0 

VCNT+1 
: CHECK FOR END OF PfSm 
JSR PCHECK 
BCC ENDNL 
;FFCOM - START A NEW PAGE 
; RESET COUNTER 
FFCOM LDA #0 

STfl VCNT 
STfl VCNT+1 
LDfl PflGEO 
BEQ ENDNL 

;Pfl6ES USED i ADJUST. PiliE NR 

LDfl PflGE 

CLC 

SED 

ADC #«1 

CLD 

STA PASE 

; INSERT OPEN LINES AND HEADING 
JSR BETP 
JSR PAGEHEAD 
RTS 

COMPARE VCNT AND PSIZE ^ * 

LDA VCNT+1 
CMP PSIZE+1 
BNE PCHl 
LDA VCNT 
CMP PSIZE 
RTS 

- SPACE BETWEEN PftSES 
LDfl BSIZE 
CMP #255 
BNE BETPl 

;BSIZE«255 t JUST WAIT FOR A IIE¥»TRQilg 
JSR RECHfl ^ 
RTS 

.■LINES NEEDED* SAVE PRINTER MODE 
LDA VM 
PHA 

:BSIZE>127 i MODE 1 EL^ MODE 0 
LDfl BSIZE 
BMI MOl 
LDfl «0 
BEQ BETP2 
LDA #1 
JSR VMODE 

: SEND DESIRED NUMBER OF LINEFEEDS. TEMP+1 IS COUNTER 
LDP BSIZE 
AND #$7F 
STA TEMP+i 
BEQ BETP4 

;SEND TO SELECWB OrfPUTS, KIT MjlPT CHECK FOR PAGES 
LDA SCREEN 



ENDNL 

; PCHECK - 

PCtCCK 



PCHl 

•BETP 

BETP 



BETPl 



MOl 
BETP2 



BETP3 



Kl 



:mime:r 




FO 05 
09 Oft 
20 80 OC 
ftD ID 9fl 
FO 05 
fl9 Oft 
20 OC 40 
CE 2F 9fl 

m. m 95 



BETP3B 



0839 
0840 
0841 
0842 
0843 
0844 
0845 

0846 BETP3A 

0847 

0848 

0849 BETP4 
0850 



BEQ BETP3B 
LDfi #*ft 

JSR DUTCH 
LDfi PRINT 
BEQ BETPSft 
LDA #$ft 
JSR PRINTER 
DEC TEMP+1 
JMP BETP3 

; RESTORE PRINTER MODE, 
PLfl 

.LI W0RDPR.M03 



EXIT 



F03 1CE6 4292-5F78 



0850 
0851 
0852 
0853 
0854 
0855 
0856 
0857 
0858 
0859 
0860 
0861 
0862 
0863 
0864 
0865 
0866 
0867 
0868 
0869 
m7Q 

mn 

0872 
0873 
0874 
0875 
0876 



95ro- 


Ort TO Q1 

2v 71 


95FB- 


60* 


95FC- 


HD 14 9H 


95FF- 


4h 


Q£ Art 

9600— 


OT\ OCT OA 

OD Zr 9h 




PC OCT ao 

1>C £r "SH 






9d0o— 


OA Tn OA 

zU oL> ?U 


960B- 


(-%r- 

Ct 2r 9H 




nA PC 


9610'* 


w iC 9fl 


9613- 


4^ 


9614- 


4A 


9615- 


A A 

4H 


9616- 


m 


9617- 


m 04 


9619- 


09 20 


961B- 


DO 03 


961D- 


18 


961E- 


69 30 


9620- 


20 3c m 


9623- 


m ic m 


9626- 


29 OF 


9628- 


09 30 


962fi- 


20 3C 90 


962D- 


A9 OD 


962F- 


20 3C 90 


9632- 


09 03 


9634- 


8D 2F 9i 


9637- 


09 OA 


9639- 


20 38 90 


963C- 


CE 2F 90 


■963F- 


DO F6 


9641- 


60 



96ii- m 



IB 9A 



964D- OD 

9650- 48 

9651- 09 
9653- 20 

9656- OD 

9659- 29 
965B- FO 

965D- OD 

9660- FO 



iF m 

85 91 
17 90 



01 

3B 91 

19 9ft 

07 

OD 

2F 9ft 
lA 



(KITH 



JSR VMODE 
RTS 

:Pft6EHE0D - PRINT PftSE ^CM>IKIB 

; FIRST: MOVE TO f"" 
P06EHEAD LDO HSIZE 

LSR 0 

STO TEMP+1 

DEC TEMP+1 

:SEND EN0U6H SPOCES 
PflSl LDO #' 

JSR OUT 

DEC TEMP+1 

BNE P061 

:GET P06E NR HISH NZlffiLE 
LDO P06E 
0 
0 
0 
0 

ZERO. 
P0620 
#' 

P062B 



LINE NR) 
(THE Itli&bgl 



P0S20 
P0G2B 



0880 
0881 



0886 
0887 

08^ 
0891 
08^ 
0893 



PA63 



iFcm 

m 

#COM 




Oil? 

0898 
0899 
0900 
0901 
0902 
0903 
0904 
0905 

<m& 

0907 
0908 
0909 
0910 
0911 



FCOMl 



LSR 
LSR 
LSR 
LSR 
:IF 
BNE 
LDO 
BNE 
CLC 
ODC 
JSR 



#»30 

OUT 
: PRINT CR 
LDO POSE 

mm **F 
&m Dii 10000 

OUT 
««D 
OUT 
«3 

TEMP+1 
*«fl 

OUTO 
TEMP+1 
PAG3 

TEWP+1 



OND TMSEE LINEFEEDS 



IS 00 OFTBf* ft FORM FEED 



JSR 
LDO 
JSR 
LDO 
STO 
LDO 
JSR 
DEC 
BNE 
:NOTE« 
RTS 

EJECT TO TOP OF NEXT POSE. SEE . EJ PSEUDO OP 
IF NOT USED BEFORE, JilST START NEW PA6E 

LDO PftSED 

BEQ P060N 

: TEMP+1 <>0 .WILL BE 0 AFTER FORM FEED 

STO TEMP+1 

JSR SENDBUFS 

;SOVE PRINTER MODE 

LDO VM 

PHO 

IMODE 1 UNTIL 0 MULTIPLE OF 8/48 INCH REOCHED 

LOO *1 

JSR VMODE 

:IS IT REAQffiO ? 

LDA VCNT 

AND «X111 

BEQ FC0M2 

:TEST IF FF ALREfflPf SlVBiJ 
LDO TEMP+1 
BEQ ENDFCOM 

;N0, SEND LF AND CONTINUE 



e^E SOS 



KENNER 



9662- 


09 


00 




0912 




LDO 


*»0 


9664- 


20 


38 


90 


0913 




JSR 


OUTO 


9667- 


m 


S& 96 


0914 




JMP 


FCOMl 










0915 




;NOW TRY MODE 0 


9660- 


09 


00 




0916 


FC0K2 


LDO 


#0 


966C- 


20 


3B 


91 


0917 




JSR 


VMODE 










0918 




;TEST IF FF ftLR©M>f tlVEN 


966F- 


OD 


2F 


90 


0919 


FC0M2B 


LDO 


TEMP+1 


9672- 


FO 


08 




0920 
0921 




BEQ 
:N0, 


ENDFCOM 
SEND LINEFEEDS 


9674- 


09 


00 




0922 




LDO 


#«A 


9676- 


20 


38 


90 


0923 




JSR 


OUTO 


9679- 


4C 


6F 


96 


0924 
0925 




JMP 
:FF 


FC0M2B 

GIVEN, RESTORE PRINTER MODE OND EXIT 


967C- 


66 






0926 


ENDFCON 


PLO 




967D- 


20 


3B 


91 


0927 




JSR 


VMODE 


fii®- 


m 


iS' 


93 


0928 




JMP 


COMCOM 








0929 


;POGQN - 


BEGIN 


POGED MODE, STORT NEW POGE 


96B3- 


09 


FF 




0930 


PAeON 


LDO 


«*FF 


96B5- 


80 


IB 


90 


0931 




STO 


POGED 


9688- 


20 


88 


95 


0932 




JSR 


FFCOM 


968B- 


4C 


D5 


93 


0933 




JMP 


COMCOM 










0934 


;RCCOM - 


REOD 0 DECIMAL PASE NUMBER 


96BE- 


09 


00 




0935 


RCCOM 


LDO 


#«0 


9690- 


8D 


IC 


90 


0936 




STO 


POGE 


9693- 


20 


&B 


90 


0937 


RCl 


JSR 


NEXT 










0938 




:TEST FOR NUMBER 


9696- 


20 


B8 


96 


0939 




JSR 


NUMTEST 


9699- 


30 


17 




0940 
0941 




BMI 


RC2 

IS, SHIFT IT IN 


969B- 


OE 


IC 


90 


0942 




ASL 


PAGE 


969E- 


OE 


IC 


90 


0943 




OSL 


POGE 


9601- 


OE 


IC 


90 


0944 




OSL 


POGE 


9604- 


OE 


IC 


90 


0945 




OSL 


POGE 


9607- 


29 


OF 




0946 




OND 


#*F 


9609- 


OD 


IC 


90 


0947 




ORO 


POGE 


960C- 


8D 


IC 


90 


0948 




STO 


POGE 


960F- 


4C 


93 


96 


0949 
0950 




JMP 
:IT 


RCl 

ISN'T, EXIT 


96B2- 


20 


7B 


92 


0951 


RC2 


JSR 


LOST 


■96B55— 


4C 


D5 


93 


0952 
0953 


:NUMTEST 


JMP 
- SET 


COMCOM 

N=l IF NO NUMBER, ELSE N«0 


96B8- 


C9 


30 




0954 


NUMTEST 


CMP 


«*30 


96B0- 


30 


07 




0955 




BMI 


NUMTl 


96BC- 


C9 


30 




0956 




CMP 


««30 


96BE- 


10 


03 




0957 




BPL 


NUMTl 


96C0- 


00 


00 




0958 




LDY 


#0 


96C2- 


60 






0959 




RTS 




96C3- 


00 


FF 




0960 


NUMTl 


LDY 


#*FF 


96C5- 


60 






0961 




RTS 












0962 


:KCOM - 


WAIT FOR ONY KEY 


96C6- 


20 


OE 


12 


0963 


KCOM 


JSR 


RECHO 


96C9- 


4C 


DS 


93 


0964 




JMP 


COMCOM 










0965 


:ICQM - 


SET POGE SIZE 


96CC- 


20 


D8 


92 


0966 


I COM 


JSR 


DECIM 


96CF- 


DO 


06 




0967 




BNE 


I COM2 










0968 




: FIRST OPEROND 0. SWITCH PASEB O!^ mmWm 


96D1- 


8D 


IB 


90 


0969 




STO 


POGED 




4C 


05 


93 


0970 




JMP 


COMCOM 










0971 


IC0i42 


; FIRST OPEROND IS SIZE IN INCHES. MULTIPLY BY 48 


96D7- 


02 


00 




0972 


LDX 


#0 


96D9- 


8E 


25 


90 


0973 




STX 


PSIZE+1 










0974 




;FIRST BY 3 


96DC- 


8D 


24 


90 


0975 




STO 


PSIZE 


96DF- 


00 






0976 




OSL 


A 


96E0- 


18 






0977 




CLC 




96E1- 


&D 


24 


90 


0978 




ODC 


PSIZE 


96E4- 


8D 


24 


90 


0979 




STO 


PSIZE 










0980 




;THEN 4 TIMES BY 2 l«EmJLTi BY 16) 


96E7- 


02 


04 




0981 




LDX 


#*4 


96E9- 


OE 


24 


90 


0982 


IG0M3 


OSL 


PSIZE 


96EC- 


2E 


25 


90 


0983 




ROL 


PSIZE+1 


96EF- 


CO 






0984 




DEX 




96F0- 


DO 


F7 




0985 




BNE 


I COM3 








0986 
0987 




:T0TOL RESULT: BY 48 

:NOW CHECK IF SECOND OPERAND FOLLOWS 


96F2- 


20 


6B 90 


0988 




JSR NEXT 



E^B 5 □ iB 













CMP 




m m 




wii 




BhE I COM4 










:IT DOES, JUST READ If IN 


S6F9- 


20 


DB 


92 


0992 




JSR DECIM 


9&FC- 


BD 


26 


9A 


0993 




STft BSIZE ^ 




4C 05 


S3 






3¥P CQMCQM 














;EXIT FRWl ICOM 


9702- 


20 


7B 


92 


099B 


IC0N4 


JSR LflST 


9705- 


4C 


OS 


93 


0997 




JMP COMCOM 












— 


PwMoE LIKEFEE0S iw^Sff «mCH Pf^S 


970B- 


20 D8 




&9w9 


C6CM 


JSR DECIM 


970B- 


29 


03 




1000 




AND 


970D- 


SD 


2E 


90 


1001 




STft TEW» 


97,t0-' 


m OS 




1002 




BNE CCOMl 








1003 




: FIRST OPERAND 0, ERROR 33 


9712- 


BD 


28 


01 


1004 


ERR33 


STA FILENR 


9715- 


02 33 




1005 




LDX #«33 


9717- 


4C 


51 


94 


100& 




JMP ERROR 


9710- 


20 


&B 


90 


1007 


CCOMl 


JSR NEXT 










1008 




iXF @E^^mO|^I^IMi1P, error 33 


971D- 


eg 


2C 




1009 






971F- 


DO 


Fl 




1010 




BNE ERR33 


9721- 


20 


DB 


92 


1011 




JSR DECIM 










1012 




J BIT 0 DETCRMINI^ UBM^^i» llMt 


9724- 


29 


01 




1013 




AND #*1 


9726- 


FO 


02 




1014 




BEQ CC(H^ 


9728- 


09 


00 




1015 




LDA #$A 


972fl- 


OE 


2E 


90 


1016 


CC0M2 


LDX TEMP 


972D- 


9D 


26 


90 


1017 




STO CTRL-1. X 


9730- 


4C 


D5 


93 


1018 




JMP COMCOM 










1019 


:DIVIDE 


- QUOT!=INT(SPOCES/WORDS) 










1020 




: QUOT:=0: 










1021 




; WHILE SPOCES >= WORDS DO 










1022 




: QUOTi*OLKJT+l : SPACES s«SP^ES'-W{mDS: 


9733- 


09 


00 




1023 


DIVIDE 


LDO #tO 


9735- 


BD 


32 


90 


1024 




STO QUOT 


9738- 


OD 


31 


90 


1025 


DIVl 


LDO SPOCES 


973B- 


CD 


30 


90 


1026 




CMP WORDS 


973E- 


90 


OC 




1027 




BCC ENDDIV 


9740- 


ED 


30 


90 


1028 




SBC WORDS 


9743- 


8D 


31 


90 


1029 




STO SPOCES 


9746- 


EE 


32 


90 


1030 




INC QUDT 


9749- 


4C 


38 


97 


1031 




JMP DIVl 


974C- 


60 






1032 


ENDDIV 


RTS 










1033 


;FILLOUT - SPREOD WORDS OVER THE LINE 










1034 




: FIRST COUNT SPACES AND WORDS- 1 


974D- 


02 


00 




1035 


FILLOUT 


LDX #»0 


974F- 


BE 


31 


ffl 


1036 




STX SPACES 


9752- 


CO 






1037 




DEX 


9753- 


8E 


30 


9ft 


1038 




STX WORDS 










1039 




:SflVE HCNT, USE HCNT OS COUNTER 


9756- 


OD 


18 


90 


1040 




LDO HCNT 


9759- 


48 






1041 




PHO 


975fl- 


OD 


IF 


90 


1042 




LDO LBORD ; 


975D- 


BD 


18 


90 


1043 




STO HCNT 


f7S@>- 


m 20 


90 


1044 




LDY RBORD 










1045 




:FIND FIRST WORD. COUNT SPOCES 


9763- 


OE 


18 


90 


1046 


FILL! 


LDX HCNT 


9766- 


BD 


84 


98 


1047 




LDO BUFl.X 


9769- 


C9 


20 




1048 




CMP #' 


976B- 


DO 


OD 




1049 




BNE FILL2 


976D- 


EE 


18 


90 


1050 




INC HCNT 


9770- 


EE 


31 


90 


1051 




INC SPOCES 


9773- 


CC 


18 


90 


1052 




CPY HCNT 


9776- 


DO 


EB 




1053 




BNE FILLl 




FO' IB. 




1054 




BEQ ENDPl 










1055 




:WORD FOUND, COUNT AND SKIP IT 


977h— 


EE 


30 


yo 


lUOD 


FILL2 


INC WORDS 




EE 


18 






FILLS 


INC HCNT 


9780- 


CC 


18 


90 


1058 




CPY HCNT 


9783- 


FO 


21 




1059 




BEQ ENDPl 


9785- 


OE 


18 


90 


1060 




LDX HCNT 1- 


9788- 


BD 


84 


98 


1061 




LDO BUFl.X 


978B- 


C9 


20 




1062 




CMP #' 


978D- 


DO 


EE 




1063 




BNE FILL3 










1064 




; SPOCES FOUND. COm AND SKIP Ttim 


978F- 


EE 


31 


90 


1065 


FILL4 


INC SPACES 



18 



KEIMMER 



9792- EE 18 9fl 
9795- CC 18 dfl 
9798- FO OC 
9790- AE 18 99 
979D- BD 84 9i 
97A0- C9 20 
97fl2- FO EB 
97fl4- DO D4 

§7^" m ^ 9^ 

'97m* so so 

97AB- CD 2fl 9fl 
97flE- SO m 
97B0- SO M W7 

97B3- ftD 20 9fl 
97B6- 8D 18 9fl 
I7B9- M 



?7BA- AE 18 9A 
7BD- EC IF 9fl 
97C0- FO 56 
97C2- CE 18 9fl 
97C5- Cft 
97C6- BD 84 98 
97C9- C9 20 
97CB- FO ED 



97CE- 
97D1- 
97D3- 
97D5- 
97D8- 
97DB- 
97DE- 
97E1- 
97E4- 
97E7- 
97E9- 
97Eft- 
97EB- 



FO 19 
99 84 98 
BD 08 99 
99 08 99 

BD 8C 99 
99 8C 93 
EC IF 9ft 
FO 2F 
Bd 
Cft 

4C CE 97 



97EE- ii |g m 



97F1- 
97F4- 
97F6- 
97F8- 
97FB- 
97FC- 
S7PF- 

9800- 
9802- 
9805- 
9808- 
9808- 
980C- 
9800- 
980F- 
9812- 
9815- 

9818- 
9819- 
981C- 

981D- 
9820- 
9823- 



9826- 
9829- 



9fl 



9fi 



AD 31 
FO 05 
A9 01 
CE 31 
18 

6D 32 9A 

m 

A9 20 
99 84 98 
99 08 99 
99 8C 99 
88 
Cfi 

DO F3 
CE 18 90 
AE 18 9A 
4C CE 97 

68 

6D 18 9A 

60 

20 D8 92 
BD 2ft 9ft 
4C D5 93 



AE IF 9A 
AC IF 9ft 



lOfifi 
1067 
1068 
i069 
1070 

1073 
1074 

m 

1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1065 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
HOB 
1109 
1110 

nil 

1112 
1113 
1114 
1115 
1116 
1117 
Ilia 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 



FILLS 



FILL6 



FILLf-1 

1(3 



FILLfi 



FILL9 



ENDP2 



:QCOM - 
I^COM 



; SWEEP 
SWEEP 



INC HCNT 
CPY HCNT 
BEQ ENDPi 

LDX HCNT ' 
LDA BUFl, X 
CMP 

BEQ FILL4 
BNE FILL2 

;END OF LINE REACHED, COUNTING DONE 
LDA WORDS 
BMI ENDP2 

: ENOUGH WORDS TO PM^ xWr ? 
CMP FILL S*?" - 

BMI ENDP2 
JSR DIVIDE 

:YES, DIVIDE AND START FIU.ING OUT 
LDA RBORD 
STA HCNT 
TAY 

\m ™ 

LDX HCNT 
CPX LBORD 
WEB EHDP2 

DEC HCNT ■ - 

DEX 

LDA BUF1,X 

CMP #' • - r - • 

BEQ FILLS ■ ■ • ' • 

DEY 

tWORD FOUND, MOVE IT 
LDfi BUF1,X 
CMP #' , 

BEQ FILL7 ■ ■,; •." ' 

STfl BUFl, Y '■ ■ 

LDft BUF2, X 

Sift BUF2. Y : ; 

LDft BUF3. X ■■ ■' . ; . 

Sift BUF3,Y " 
CPX LBORD 
BEQ ENDP2 

DEY •- 5 - ! 

DEX ^ 

JMP FILL6 

rSPftCES FOUND. INSERT RIGHT NUMBER AND SKIP THE 
STX HCNT 

: COMPUTE RIGHT NUMBER ; •' 

LDft SPACES 
BEQ FILLS 
LDA #1 
DEC SPACES 
CLC 

ADC QUOT 
TAX 

; INSERT SPACES 
LDA #' 
STA BUF1,Y 
STft BUF2. Y 
STft BUF3,Y 
DEY ' ^ 
DEX " 
BNE FILL9 
DEC HCNT 
LDX HCNT 

JMP FILL6 ' ■ 

•END (F FILLINS OUT, «ETSTOHE 
PLft 



I ,' - -CMi 



t <-. 



REST ^.^ 



Si" 



At" 1 



TO FILL ISJt 



STfl HCNT 
RTS 

SET MINIMAL NUMBER OF^ 

JSR DECIM 

STA FILL 

JMP COMCOM 
• REMOVE SUPERFLUOUS SPACES 

;QUOT IS USED TO HOLD PREVIOUS CHARACTER 

LDX LBORD . " . 

LDY LBORD v : : 



11 



982C- 
982E- 
9831- 
9834- 
9836- 

9838- 
983B- 
983E- 
9841- 
9844- 
9847- 
984fl- 
984B- 
984E- 
9850- 
9851- 
9854 
9856 

9858- 
985B- 
985D- 
985F- 
9860- 
9863- 
9865- 

S867- 



fl9 20 
8D 32 9fi 
BD 34 98 
eg 20 
FO 20 

99 84 98 
8D 32 9fl 
BD 08 99 
99 08 99 
BD 8C 99 
99 8C 99 
C8 

CC 20 9A 
FO ID 
E8 

EC 20 90 
DO DB 
15 



- FO 



986D- 
986F- 
9872- 
9874- 
9877- 
987fl- 
987D- 
987E- 
9881- 
9883- 

9884- 
9908- 
998C- 
9A10- 
9flll- 
9A12- 
9fll3- 
9ftl4- 
9fll5- 
9fil6- 
9R17- 
9fil8- 
9019- 
9filB- 
9filC- 
9fllD- 
9filE- 
9filF- 
9fl20- 
9ft21- 
9fl22- 
9023- 
9024- 
9026- 
9027- 
902fl- 
902B- 
902C- 
902D- 
9fl2E- 
9030- 
9031- 
9032- 



ZD 



RD 32 90 
C9 20 
DO 08 
E8 

EC 20 90 
DO CC 
FO 06 



a4 96 
C 38 98 



09 20 
CC 20 90 
FO OF 
99 84 98 
99 08 99 
99 8C 99 



C8 
CC 



20 90 



DO Eft 
60 



1143 

1144 

1145 

1146 

1147 

1148 

1149 

1150 

1151 

1152 

1153 

1154 

1155 

1156 

1157 

1158 

1159 

1160 

1161 

1162 

1163 

1164 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

1178 

1179 

1180 

1181 

1182 

1183 

1184 

1185 

1186 

1187 

1188 

1189 

1190 

1191 

1192 

1193 

1194 

1195 

1196 

1197 

1198 

1199 

1200 

1201 

1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 

1211 

1212 

1213 

1214 

1215 

1216 

1217 

121B 

1219 



SUl 



BW12 



;FIND FIRST 
LDO #' 
STO QUOT 
LDO BUF1,X 
CMP #' 
BEQ SW2 
;W0RD: MOVE 
STO BUFl.Y 
STO QUOT 
LDO BUF2, X 
BUF2, Y 



WORD 



IT 



,1 



STO 

STft 

I NY 
CPY 
BEQ 
INX 
CPX 
BNE 
BEQ 



RBOF^ 
ENDSW 



SW2 



RBORD 
SMI 
ENDSM 

spoce: m\m IF Pil 

LDO QUOT 
#' 

SWll 




WASN'T. 




CMP 
BNE 
INX 
CPX 
BNE 



SWll 



ENDSW 



RBORD 
SWl 
BEQ ENDSW 
;MOVE SPOCE 

LDO BUFl, X 
J MP SWl 2 

:ODD TRflILIN6,SPftgiS, 

LDO #' 



CPY 
BEQ 
STO 
STO 
STO 
I NY 
CPY 
BNE 
RTS 

.DS 
. DS 
. DS 
.DS 
-DS 
.DS 
.DS 
.DS 
.DS 
.DS 
.DS 
.DS 
.DS 
.DS 
.DS 
.DS 
.DS 
.DS 
.DS 
. DS 
.DS 
.DS 
.OS 
.OS 
.OS 
.OS 



RBORD 
ENDSW2 
BUFl. Y 
BUF2. Y 
BUF3, Y 

R6QR0 
ENDSW 



•■- PT 



ENDSW2 
;VORIOBLES: 
BUFl 
BUF2 
BUF3 
USE2 
USED2 
UNDERL 
UNDERLD 
HSIZE 
VSIZE 
HM 
VM 

HCNT 
VCNT 
POSED 
POBE 
PRINT 
SCREEN 
LBORO 
RBORD 
PTOB 
TWIDTH 
OFFSET 
PSIZE 
BSIZE 
CTRL 
FILL 
LCHOR 
CCHOR 
NUMB 
TEMP 
WORDS 
SPACES 
QUOT 

; PRINTER DEPENDENT PORT 



.OS 
.OS 
.OS 



BUFLEN 
BUFLEN 
BUFLEN 
1 /: ' 
1 
1 
1 
1 
1 
1 
1 
1 
2 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
1 
3 
1 
1 
1 
1 
2 
1 
1 
1 



FIRST BUFFER 
SECOND BUFFER 

UNDERLINE BUFFER :• 

FLOG : COPY TO BUF2 

FLflB ! BUF2 USED ■ . , 

FLOS ! UNDERLINE IN OUS 

FLflS : BUF3 USED • i t- 

HORIZONTAL SIZE ^-i. .\ i 

VERTICAL SIZE . ! r ,.- . 

HORIZONTAL MODE -<r ■ i 

VERTICAL MODE : t ^ 

HORIZONTAL POSITION • • 

SAME. BUT VERTICAL : ■ '. 

FLAB : PASED MODE 

PASE COUNTER 

FLAB : OUTPUT TO PRINTER 

FLAB : OUTPUT TO SCREEN ;.• 

LEFT BORDER 

RIGHT BORDER 

PARASRAPH TABULATION 

TERMINAL WIDTH , 

NUMBER ADDED TO WWd - 

SIZE OF PAGE IN 1/48 INCH 

SIZE OF SPACE BETWEEN PAGES 

PRINTER CONTROL CODES 

FLAG : FILLING OUT LINES 

LAST CHAR SENT TO BUFl 

CHAR FETCHED BY NEXT OR END OF LINE 

BUFFER FOR DECIMAL INPUT 

TEMPORARY STORAGE 

hftJMBER OF WORDS- 1 IN BUFl 

NUMBER OF SPACES IN Bl^l 

SPACES/WORDS ^ 



E^E 5 a s 



9fl33- 


IB 


41 


ID 


9A36- 


00 


84 




9fl38- 


IB 


41 


ts 


9fl3B- 


00 


50 




9ft3D- 


IB 


41 


IF 


9ftA0- 


00 


28 






IB 


42 


19 




00 


69 




9fl47- 


IB 




IE 


9A4ft- 


00 


^ 




9A4C- 


IB 


42 


IF 


9fl4F- 


00 


20 






IB 42 


IF 




00 20 




9056- 


IB 


42 


IF 


9059- 


00 


20 




9fl5B- 


I B 3G 




9fl5E- 


&0 08 




9060- 


IB 


38 


m 


9063- 


00 


06 




9065- 


IB 


36 


00 


9068- 


00 


06 




906R- 


IB 


38 


00 


9fl6D- 


00 


06 




9A6F- 


IB 


36 


00 


9072- 


00 


06 


9074- 


IB 


38 


00 


9077- 


00 


06 




9079- 


IB 


38 


00 


907C- 


00 


06 




907E- 


IB 


38 


00 


9081- 


00 


06 





1220 
1221 
1222 
1223 
1224 
1^ 

im7 
iisis 
1^ 

1230 

1231 

12^ 

1233 
1234 



OKI MICROLINE 80 FORMATS 
1ST : HORIZONTftL SIZES 

FORMOT : . BY X X X X Y .WHERE XS ORE SENT TO THE PRINTER 
AND Y IS NUMBER OF CHORftCTERS/LINi 
EIGHT MODES MAY BE USED (0...7) 



SED Wj9N6 LINE 



.BY m^wi^-m imm. 

.BY *1B 'A' tlF 0 AO WIDTH 

.BY tiB 'B' tip 0 103 imm mir smkr lIne 

. BY f IB > B' «IE 0 64 

.■BY -lis,*!* jm.,f^ .32 

.BY m^f^^^:^:^: 
.BY *m''M'MS^^'M 

,2ND : VERTICAL 

:SOME FORMAT BUT Y IS HEIGHT OF LINE TIMES 1/48 INCH 



1236 



1241 

1242 

1243 
1244 
1245 
1246 
1247 
1248 



Ti. */wi 1 «w rni.*uni ur UAIHC I A PICS 

. m it» IS if %fj|i^/iNcrt 

.BY m «f^i0f f;t:' . \r-^ ^ \ ' 

.BY ttB 'B' 0 0 6 
.BY tlB *r 0 0 6 

. gY »1B »«• '© "6 6 

. m^mj>^A ^ 

WRITTEN^BY^jPbuURMAn'^'^^'' <*RINTER, DW'T forget to ADJl^ BUFLEN 

v! d. FUYCKSTRAAT 136 

3232 AS BRIELLE (01810-5153) 
LAST MODIFICATION lt-8-1184 
.EN 



AANGEBODEN: 

KM-I Mt 64K Raa (Elektuurkaart). Haziltim 1400 M4mr 
tWMiiul. Eventueel voedina voor KIN-1 m. * in W * 
m % my. ASCII kiytoiitt in Mwlziiib 
iMrl m liMiiial in cm fcun. lil tartniti 

w. f m - mm mmn a.m m nM . ^ - >■• 

: M«a8 . a88«8jii«.r i T 'tT ;rr«r,'j'TirT.niitiiTiiii i i. ii iir i i) i| -i i i i ii n ii i' iii i iii il|- |ii lMaft 



wmmmmmmmmmmmmm 



•sflild Vinks ODlosiino voor hil IMM Mm screens 
15 in editie 33 v«i BE fiSCQ mHi^flf 'Vrfleo m een 
lossing voor het variiM Wmm, m ti 

in het vocabulary. 

Hout van Dinther, Holenriinselaan 27, 5262 TN Vuoht. 
aan de ooraeo Qevolg geqeven. Hier is zi.jn oolossinq. 

I «jsr mwm m m t im iwp : 



0 i /a 



heeft 



Net als definitie BMchri]vina ( nl n2 — ), itaarbii nl 
tot ecrste screen en n2 het lialtte eoet ziin. De KEY erin 
isrgt ervoor dat hij oo in^ve van het toetsenbord staat 
p Nachten twtie). Miinia het volaende screen De- 
list Mordt. 

iput denkt ineiddels na over een noa aooiere oolossina. 
ge redaktie houdt zich aanbevolen voor eeer FORTH-screens. 



ssss uitiii ssas 

Fridus Jonkaan oaf in Kleintie Fortn voor het Recursie-oro- 
bleee. Er ziin eeer oolossinoen denkbaar. Een ervan ont- 
)dipWMMm Gert van Oobroek. Hooolanden 20. 9001 LB 
mtmivrm). Hit schreef ons het volaende: 
Itecursie kan m mmmm^mmlm Miniin d.«. v. 
de definitiet-Io" ?f'(^--Bi- ■ - - --f^^- 

[#i||iD80P ( zoro ervoor dat de return- ) 
■"^ ( stack niet vollooot I 



MYSELF : 
Een ander voorbeeld: 
<4 SECFflC 
•5 BUP 1 » IF DUP 1- 
l^mm i n RECFAC . 

&m NICROPIBeESSOR 



( bereken n! 
MYSELF • ENDIF : 



rccursief ) 



Hie eocht denken dat de 6SXX-faaiIie het aoeiliik heeft in 
de concurrent iestri Id. koat van een koudc kerais teruo. De 
De 6SXX-fatilie baart noa steeds nieuwe Chios. De 65B16 
•icroorocessor is zo'n nieuw borelina, intern uitoerust 
■et een 16 bits accuaulator. 16 bits indexreaister. een 2li 
bits (!) orooraacounter en een 16 bits stackoointer. Naar 
analoaie van de 6S09 een 'direct oaae rcoister'. waardoor 
zero oaoe in elk deel v/h aeheuaen te olaatsen. Met behoud 
van cotoatabiliteit aet de 6502 als 6SC02 te aebruiken. en 
de aooeliikheid oa 16 aeaatDbvte te adresseren. En noa 
heel veel aeer van dat leuks. Ue hooen hier binnenkort noa 
uitaebreidcr over te kunnen berichten. Bedankt inzenders ! 



UITNODIGING 



Datum 
Lokatie 



zaterdaa 24 november 1984 

R.K. HIS ■'Riiswijk" . . , ^ , 



070 - 907839 



, r- ^/ 



"0 



Reis^oute * 
- t»r auto 



kopinde uit de_richt_inq U.t_recht 

^olid autowea E8 Utrecht-Den Haaa. Knoooount LeidschendaiYi via de hoae 
ri l6aan linksaf richtina Del ft/RotterdaiYi. Pan het eind daarvan rechtS'- 
af richtina Den Haaa. Rechts aanhouden. Onder verkeerslsord Yoenburo 
door en rechtdoor met trambaan mee over Hoornbrua. Dan scheroe draai 
naar rechts en onder brua door. Delft/Rotterdain en Waterinoen aan- 
houden. Bi 1 stoolichten linksaf en Sir Winston Churchillaan uitriiden 
tot laatste stoolichten voor soooroveraana. Links van U ofbouw SflK sj^ 

'■ — ' ' — "-'-^ uitrflfc. fliaiiii. ' 



ABN bank 
rechtsaf 



'If 



hier linksaf Huis te Landalain oo. 
Uitriiden tot schoololein. 

Leidschendam oasseren. E6/E10 IM^ 
i«n Haaa. Rechts aanhouden. Oniir 
m iMM» over Hoornbufo. Vtfrder 



- ko mend e uit de richtina_fliYisterdam 
\/ola M ft' dam-Rotterdairi. Knoooount 
houden tot eind, rechtsaf rlchtino 
verkeersbord Yoenburo door Mitft 

als boven. ^ ^ 

- komende ui t de r i chtino Rott erdam t 
'li'bTa Ef5 R'TTam-Den Haaa tot vlak voor Hoornbrua. Onder verkeersbopii . 
Yamibura door en rechtdoor met trambaan mee over Hoornbrua^ VerdPI^^ , 
als iboven. 

- OMr trein -^ Station Riiswiik uitaana richtina winkelcentrum De Boooaard. Bi 1 uit- 



Lunchoakket zelf meenemen. 
ConsuMDties teamn betalino. 



10.00 
10.15 



ViyiMcifzina bestuursleden 
ttili-'*" •«fl*edend en niet herkiesbaars Ruud Uohoff 



12.00 
13.00 
14.00 



17.00 



□oenino Ledsnveraaderina 1984. 

- Notulen laarvefaadwEing. 1|S3 
Financieel Jaarver«'l«o--'4*^K|j :/ ' " -ov,- uiiiv 
Bearotino 1984 ■ i: 'jv 
Vefkiezino kascont rolecommissie 

voordracht van het bestuur : Bert Klein 
aftredend en niet herkiesbaars Mw. M. F. Uohof f-Burohoorn 
- yerkiszinq 1 bestuurs]jt4,Jkandidateji kunnen schrifteli i^*. wor- 
den aanaemeld bii de m0fmmH^>$: ^mrmmmm^ - - 

van de veraaderina). « • . v . o, . n -t- 1:. 

" Mededelina over c.a. uit rei kino Got^itfiMliA^^MraMiedim 

- Rondvraao en sluiting. u.-^i 
Lunch 

Lezina Nico de Vries over universeel oroarammeren. &5C02. mm*. 

INPORMEEL GBDEELTE 
BREN6. OOK UW SYSiTEEIL MEE^ft W EMI6SZINS LUKT ! > 

!!.■». 73* Mtf) j; rf - ' li 

Sluitino. •»» 's;. ••x.i-o«'t ' ' 
' • • »• ■.' -j v'^ 



. 1 .1- 



i ,-,1 I 



100 // 

110 // 

120 // 

130 // 




* 
* 



PROGRflMMfl STAfiFDIflBRflM 
voor microliiw 00 oHntvp 



(M3 "KV I'fWiV- 



/It) * 



:1 



) 



Dit oroaraittma is geschreven on de resultaten van erit^lit'ken van ' 
verschillende klasssiei met elkaar te verttrti tk«ti« M«Af HI' ilra - 
meer moqel i ikhedew t# bedenken. ^ 
Het Droaramma is een voorbeeld om het oebruik van alobale «n lo- 
kale variabelen te demonst reran. (PROC'voer het aantal in") . 
Van de andere kant is het in GQMftL*KBN niet ffifMMik Oii> karakters 
met een nummer oroter dan 127 Ift^Btn orint stiViiint te aebruiken. 
Helaas vormen de karakters boven de 127 }uist de grafische set van 
de microline 80 orinter. De oolossina is ven in COMflL qeschreven 
onnt-routine die het aewenste karakter direct in de ofinterooort 
"Dookt". Zie de orocedure "orint" onderaan. Om het orooramma aan- 
□asbaar tw iMIkffn heb ik de ooorten bovenaan in het orooramma o«^<. 
declareefd. Met ^i^n de variabelen: 

STATUS de inoutooort van de PIfi waarin de orinter status 

staat (P7=online/off line : P6=oaDer l«ot of oaoer ; - 
P5=BUSY : P4«=not fault : P0-P3 =1 ) < 
PIflPB de outoutooort naar de orinter (oarallel) : 

ONLINE de M«arde die de st«^iMi8e$rt hMft als de orinter 

Er kan in het orooramma geko|««i worden : de resultaten mfdmkkt^- 
zoals ze ziin. of de resulfifw^ in orocenten afdrukken. 
In het eerste geval MSPden er aetallen voor de reoels afqedrukt 
in het tweede geval Qffven streeoies een verdelino aan. 
Een voerteeld is bijgevoegd. De getallen onderaan oeven het num- 
mer van ii« vraHEi. 



100 
101 
102 
103 
104 
105 
106 
107 
108 
109 



// 
// 
// 
// 
// 
// 
// 
// 
// 
// 



PROSRflMMft STRftFDIfi^lAW 
voor mieroliiie #0 orinter 
f rans tmkH 
huisst«cl«n 1112 
eSOS M Hi ichen 



« 
* 
* 
« 
« 
« 

110 CLEAR 

111 STATUS: =6 176 

112 PIAPB:=6178 

113 ONLINE :=95 

114 BUSY:=127 

115 VRAGEN$:=" vraoen " 

116 LEERLINGEN*:=" leerlindeyi " 

117 F0UTEN«:=" fouten " 

118 PRINT CHR*(10) 

119 PRINT "FOUTEN STAAFDIABRAM" 

120 PRINT 

121 // 

122 EXEC: "voer het aantal i««. 

123 DIM FOUTEWt a. mmSEitSL) 

124 DIM KARAKTERXCIi^^f^i^lje) 

125 EXEC: "voer aantal in". 

126 FOR VRAAG:«1 fO NVRAGEN* 

127 PRINT "Voor vram "VRftf®" « 
126 REPEAT 

123 EXECi "voer het aantal in" 
1^ UNTIL NFOUT5t<«NLEERLIN6X 

1 31 FDUTENSt (0, mmi « »NFOUT* 

132 FOUTENHf l. V««AS} »»lNTC100#NFOUT5t/NLEERLING:t+0. 5) 



'J 



■J' 



a ' 



mmmm 



LEERLINBENt. NLEERLlNBS 



op I 



FOUTENf . NFOUT* 



E^Ei 5 □ S 



KEMMEIR 



135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
l&fi 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 

lao 

181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
134 

tm 

196 
197 
198 
199 
200 
201 
202 
203 
204 
205 

mm 



"0 = absoluut 
"1 = relatief 
"2 = einde" 

" wat wilt u ? 



afdrukken" 
afdfukkvn" 



"+8TR»(RESEL).2)" "; 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT " 
GET N* 
PRINT 

KEUZE:=INT(VfiL(N$) ) 
IF KEUZE=0 OR KEUZE=1 THEN 
EXECS "di#9f>«tt afdrakken" 

ENDIF 

UNTIL miW^- • ■ 

END. 

// * ' " 
// 

PROC "diaaram afdrukken" 
PRINT "zet de orinter aan a. u. b. " 
// Macht ^t«tM^' -lie. orintvr {lAli 
REPEAT 

fl:=PEEK (STATUS) 
UNTIL fi=ONLINE , ^ 

PRINT 

EXEC: "init orinter" 
IF KEUZE=0 THEN 

NREGELSS:=NLEERLING54 
ELSE 

NREGELSS:=34 
ENDIF 

FOR REBEL :=NREGELS?C TO 1 STEP -1 
EXEC: "const rueer 
IF KEUZE=0 THEN 
PRINT RliWftf* 
ELSE 

KflRflKTER5i(0) :=240 
EXEC: "urint",KARfiKTER%(0) 
PRINT " ": 
ENDIF 

EXEC: "Drint reael" 
ENDFOR 

EXEC: "orint onderliin" 
PRINT CHR*(10) 
// short line 
PRINT CHR$(27)"B" 

// wacht totdat de orinter uit staat 

REPEAT 

A :=PEEK (STATUS) 
UNTIL AO ONLINE AND AO BUSY 
ENDPROC 

// 

PROC "voer het aantal iii",PR*.N* 

REPEAT 
PRINT 

PRINT "Het aantal "PR«"a.u.b.? ": 
INPUT N$ 
N-/<.: = INT(VAL(N*) ) 
UNTIL VALtM*)«N* AND N«>=0 

ENDPROC 

// 

PROC "init orinter" 
IF NLEERLING%<30 THEN 

// short line 

PRINT CHR«(27l"»"t 
ELSE 

// lona line 

PRINT CHR$(27)"A": 
ENDIF 

// 6 reaels oer inch 

PRINT CH6$(27)"6": 

// oroot afdrukken 

PRINT CHRf(31): 
ENDPROC 
// 



voor Junior aet VDU-tmrt 
♦»« PftCMflN **** 

to redaktie MeoilpM^Arl 
m lifife siitililMli lit It 
kuimen breraen vm ii iniid- 
dels in de editift raids be- 
kende Phons Bloeten. Het be- 
treft hier een artikel in 3 
delen. buiten it lai»t za'n 
3 X 20 K seuief imllm4 
Het bekende soel kan alleen 
oedraaid Morden als aen de 
&eschikkinq heeft over Raa- 
aeheuaen tot $A00O. Het oe- 
liele prograaM, inclusief de 
coding voor beeldschera, de 
oozoektabellen en het dool- 
bof baslaat het oeheuaen van 
MOOO tot en Bet'«9FFP. Ook 
ii karakteraenerator EPSON 
WiElektuur'(ESS 523} diMll 
aaiwezio te zijn. 
Oadat ef aensen zijn die brt 
vele typeiierk niet zien zit- 
ten, en oadat de laatste ou- 
blikatie oas in aoril 191^ 
is te vemachten, heeft de 
redaktie de routine oo band 
beschikbaar oesteld. 
Het staat in'het bekende KIN 
en JUNIOft Hyoertaoe foraaat 
en kan aet de aonitor worden 
binnenoehaald of aet behala 
van Nicro-flDE. 

Or orijs van de cassette be- 
tfraagt! 

- ft. 15,00 

Voor de alleronoeduldiostm 
stellen te de oefiele source- 
listing, inclttsief de inlei- 
ding en scheaa voor joystick 
ook beschikbaar via de oaoer 
Hare service. LET het is 
orecies hetzelfde als aeou- 
bliceerd zal Norden. Hei is 
dim niet nodio het te bestel 
aaar hef kan Mel, als 
er teveel ongeduld is. 
to orijs van de oapers be- 
draagt, inclusief veroakking 
en verzendkosten: 

FL. 45,00 

Overschrijven oo oostairo 
841433 t.n.v. U.L. van Pelt 
te Kriaoen a.d. IJssel, of 
OS bankrekening 44.11.06.471 
van de flNRO-bank te Kriaoen 
a.d. IJssel (giro 3050). tm 
Eurocheoue aag ook. 
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209 
210 
211 
212 
213 
214 
215 
21& 



219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231. 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 



PRDC "const rueer reael" 
FOR VRflAGi«l TO NVRfl6EN)( 
KflRflKTER«(VRAfl6) :»12B 
IF KEUZE=0 THEN _ 
IF FOUTEN?C(O.VRftflB)>=RESEL IVm 

KARflKTER3t(VRflfl6) :=255 
ENDIF 
ENDIF 

IF KEUZE=1 THEN 
IF F0UTE|i|*(l.VRflfte)>=3»RESEL-2 THEN 

mmKTmm^mm) s»24o 

ENDIF 

IF F0UTEN<<l.VRflAe)>»3*REiEL-l XmH 

KftRftKTERjKVRftftS) s=252 
ENDIF 

IF F0UTE6Ht«i.VRflAB)>=3*RE6EL THEN 
KflRAKTEffittViftftB) s«255 
ENDIF 
ENDIF 
ENDFOR 
ENDPIO: 
// 

PROC *Qriti* TBoel" 
FOR VRflfl6:"l TO NVRfl6EN?( 

EXEC ! " orint " . KftRflKTERjt (VRflASi 
ENDFOR 
PRINT 

// 

PROC "orint onderlim" 
KflRftKTER)t<0)s»140 
FOR VRAflSJ«l TO NVRfl6EN%+3 
EXEC: "orint". KflRftKTER*(0) 
ENDFOR 

// volaende rael normaal ardrukken 
PRINT CHR$(10)CHR»(30)" ": 
FOR VRftflG:=l TO NVRfiSENS 

PRINT RIBHT*(" "+STR* (VRflftG) . 2) : 
ENDFOR 
PRINT 

ENDPROC 2 s 

// 

PROC *orinf 
REPEAT 

PI : =PEEK ( STATUS ) -JS 3 

UNTIL flOBUSY,^ „^ ^ .•-.-> 

POKE PIfiPB. CWIIW^^^ -^-^ 
ENDPROC ''-'m 



2: ^ 





ijll'ii'ZlBlIi'l''' 

Iji'i'.rv'^'l'fi'''. . 

BiJ«r^„,iiIi 



1 ■ s lie;, "« I' ^r- 1- 




1 2 3.4 5 6 7 S 31011 121314151G171SlS^2i2) 
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12 3 4 5 6 7 8 3101 i 12i3i4i51617iSi920 
PfiTCHES FOR SENIOR MONITOR FATE 65XX ASSEMBLEA Vli« pt^t 0001 



0001 


0000 


0002 


0000 


0003 


0000 


0004 


0000 


0005 


0000 


0006 


0000 


0007 


0000 


0008 


0000 


0009 


0000 


0010 


0000 


0011 


0000 


0012 


0000 


0013 


0000 


DEFINITIONS 


0015 


0000 


0016 


0000 


0017 


0000 


0018 


0000 


0019 


0000 


0020 


0000 


0021 


0000 


0022 


0000 


0023 


0000 


0024 


0000 


0025 


0000 


0026 


0000 




0000 



.TIT 'PATCHES FOR SENIOR MONITOR' 
.OPT SEN 
• OPT PRI 
.OPT SYM 



* * 

* PATCHES ON SENIOR MONITOR V4. 6 * 

* # 



: CHfiRftCTER DEFINITIONS 
LF =$Ofl 

■ 

: SeilOR MONITOR LOCATIONS 



TRFL6 
TRMCNT 
VFLG 
MAXLIN 



=♦0531 
=♦0545 
"♦058C 
-♦058F 



; LINE FEED 



TRftCE FLAG 
HISTORY COUNTER 
VERIFY FLAB 

MAX. LINES/PA6E FOR PRINTER 



PfiTCHES FDR SENIOR MONITOR 



FATE 65XX ASSEMBLER VI. 0 PflBE: 0002 



0028 


0000 






0029 


0000 




: SEN] 


0030 


0000 






0031 


0000 




INTSEl 


0032 


0000 




RST 


0033 


0000 




« 


0034 


0000 












0036 


0000 






0037 


0000 






0038 


0000 




: N R. 




AAAA 




• 




AAAA 








toot 
















CO/i A 




• 


\J\JHU 






■ 


AAA"! 


PAAA 




: NR. 








• 








• 


AAAA 


PA/iA 






AA/iP 






• 


AASA 




0006 




A Am 




B9CftFF 


INLS6 


AAS"? 




99BF0S 




AA"C"T 




88 




AA^/i 


P07C 


10F7 




AA';^ 




fl900 




AA^C 
UUDD 




8D4505 








8D3105 






oafs 


0937 




AA^Q 




8D8C05 




0060 


E2B5 




a 


0061 


E285 






0062 


FFCO 






0053 


FFCfi 


3E 


INTOB 




ppno 
rrLU 


Ofl 




0064 


FFCC 


00 




0064 


FFCD 


00 




0064 


FFCE 


00 




0064 


FFCF 


00 




0064 


FFDO 


00 




0065 


FFDl 




• 


0066 


FFDl 




■ 


0067 


FFDl 




: NR. 


0068 


FFDl 




■ 


0069 


FFDl 




• 


0070 


FFDl 




• 


0071 


FFDl 




m 


0072 


FFDl 






0073 


FC64 




■ 


0074 


FC64 


0900 




0075 


FC66 




• 


0076 


FC66 






0077 


FDflF 




• 


0078 


FDflF 


0903 




0079 


FDBl 




• 


ooao 


FDBl 







SENIOR MONITOR ROUTINES 

=«F6B0 
«*E237 



INITIOLISE INTERFOCES 
RESET ENTRY POINT SENIOR 



: REPLACE BY 18. 14 LINES ON SCREEN 



NEW FC^. STRING 



LDY #*06 
LDO INTOB. Y 
STO MOXLIN-Y 
DEY 

BPL INLS6 
LDO #$00 
STO TRMCNT 
STO TRFLG 
LDO »*37 
STO VFLG 



SET MOX. LINES/POSE 
ON PRINTER AND FORM 
FEED STRING 



: CLEAR HISTORY COUNTER 
: CLEOR TRACE FLOB 

: SET VERIFY FLAG 



*=$FFCA 

.BYT $3E ; MOX LINES/POSE 

.BYT LF, LF, LF, LF, LF, $00 



THE HEOD LOAD TIME CON BE 0 MSEC. 
ON QUME DRIVES THE HEOD STEPPING TIME IS 
BETTER THEN 15 MSEC. 



SO 



#=*FC64 
LDO «0 
*=*FDOF 
LDO «3 
.END 



; HEAD-TIME = 0 MSEC. 



15 MSEC. STEP TIME 



27 



T. M W «>k.iV«5« /ii?r RICKS 



mm SOS V3. X SPECfUL mOR DE JUNIOR 



Er zijn enkele kommando' s die besinnen met de «SC«[|P«-$wts wmvmtum: ^fy^ 
andei- karakter. < b. v, ESC 1 = bee I d wissen ) {)» OHlO^b** j c iMHMVr't 
escape-toets. Door nu te zesaen PRINT !<n) is dlX OP«#l©«t. < » Is d» 
dec i male waarde van het karakter dat na dtf »SC«pe-tG«tS komt) Dus lF"RII»l|' 1 < &9) 
is geliJk aai-i print CHR* i:27) ; CHR* 1 49) . ,^ , , . 

, >-. Ifi ' ' ■•'..'U' J v 

heb Je 9 rote k«ns ,^«t h»t systwCNH Mamtr** 
te voorKomen zet dan vast in BEXEC de voltendi* instruktiesi 

, POKE 9593, 234: P0KE9594, 234 ^ ., 

Ti»l'ii»j;#tt»n in de oude stand gebeurt met J 
POKE 9593, 20! P0KE9594, 24 



Bij sebruiK van de CTRL 'X' 



Na het invoeren van onderstaande instrukties in de BEXEC k«n de Prin«e(;,a«0 
en Uitvezet worden met CTRL ' G' <io wordt op ,09 gezet) 

POKE 9610, 201 : PDKE9E1 1 , 7: PDKE9B1B. 9 



Voor dieaene die DOS V3. X hebben en de editor Nil I en ^ebruiken, hi J zit op 
track 15. Type m DISKI"io 15", run het en al s het programma z i ch meldt met 
•EDIT ENftBtED' , type dan het woord "HftLLQ" i i>, daarna CTRL ' H' sevolsd door 
is de editor «ei n i t i al iveerd/ 



CT(a."«'l»». Mu 



Zo ook met de RUBOUT funktie in DOS V3. X. Deze Kun je aebruihen als men 
endersitaande instrukties invoerd: 

POKE1394, 127: P0KE1419, 127 

POKE2820. 127 (POKE 1386. 128 

mm mum* ^mmms Rour siiis m tm * 



»2D73 STRING OUT 



JBR •2D73 sevolsd door een tekststrins wordt 
uitseprint op het insestelde device. De tekst- 
strin* moet ein4i«en op 00. 



»27E1 LMLEMD HEAD 



Gemakkel iJk als het systeem hanat en de kop er 
no9 OP staat. ( Sommise drives saan dan ook 
n i et open ! ) 



»2E7C 1 MSEC TELLER 
f2?7B 1^1 (ttSEC TELLER 

•2300 (SSEBD) HI MEM 



Ris achter in het RRM-aebied wat ruimte aere- 

serveerd moet Morden (b. v. in BRSIC), bevat 

het Hl-adres het laatste beschikbare RAM- 
9eb i ed. 



*2322 CS994D) OUTPUT 10 DEVICE 



*2DC4 <1271BD) DIR TRACK 
»2efl3 OffllO TRfCKflEC 
»2EBC 



Hierin staat 60 Mhtke track d* directory t# 
vindtfn is. 

Traclc^cHfe rankle «cc«s tiJd in msec en deciMaa)!. 
<standa«rd 28> 

Inhoud van tSl. Bij 2 He procMsors is dit •62 



Het dank aan M. v. Dint Her 



CHTfliPE DE SS02 KENlCf? 



PflSE 01 



0200 



CHTflPE ORG $0200 

********************* 

* C H E C K T fl P E * 
#«»*■»*##*#♦#*♦«#«**## 

Phons Bloemen 
Vinkelaan 200 -.^ 
5702 LX HeliYionc 



if 



This DroaraiYi reaos a taoe and oives 
the ID ( ident i f icat ion*^ipii»r) 
the SO (start address) 
the Efl (endaddress) 
the CHK (cnecknuiYiaer) 



So it serves 
is on it. 
To leave the 
Parts of the 



everyones not Knowina wnat 
oroqra* oress <RST>. 



0220 






ZERO PflSt 






0230 


23 


00 


PRPNT * 


$0023 




0240 


Ffl 


00 


POINT * 


$OOFfl 




0250 






SUBROUTINES 


FROM T!^ 




0260 


C2 


OB 


RDBIT * 


$0BC2 


Ri-flDS 1 BIT FROf^ TfiPE 


0270 


£8 


OB 


BTWEEN * 


$0B£8 


DISPLAYS THE BETWEEN CHftR 


0280 


F3 


OB 


RDBYT * 


$0BF3 


READS 1 HEX BVTE = 2 ASCII ChAR 


0290 


36 


OC 


REflDCH * 


$0C36 


READS AN ASCII ChAR FROM TAPE 


0300 


4B 


OC 


CHKSUM * 


$0C4B 


COMPUTES CHECKSUr^. OF R':l[:£.'^Ej Dktfl 


0310 


5D 


OC 


CHflRVU * 


$0C5D 


OUTPyjg CHAR TO J-S^M.i)iS£^Y . . 


0320 


6ft 


OC 


VU * 


$0C64 


' ^' '■ ''. ,"' H i;,-' ' ■ ; '• - ' 


0330 






SUBROUTINES 


FROM PM 


PRINT <CR> & <Lf4- - - ■•■.i:"'" 


0340 


E8 


11 


CRLF * 


$11E8 


0350 


F3 


11 


PRSP * 


$11F3 


PRINT SPACE 


0360 


8F 


12 


PRBYT * 


$:23F 


CONVERTS BYTE INTO TWO ASCII Crtft«S 


0370 


34 


13 


PRCHfl * 


$1334 


TRANSMIT ASCII CHAR TC PRINTER 


0380 


8C 


14 


RESTTY # 


$14BC 


0390 






flLLOCflTIONS 


IN Plfl- 


RAM , ; 


0400 


58 


Ifl 


CTRL * 


$1058 




0410 


69 


IP 


SY * 


$lfl69 


SYN COUNTER • 


0420 


SB 


Ifi 


CHAR * 


$lfi6B 


CHARACTER FROM T«g- ' ,: 


0430 


6E 


Ifl 


CHKl * 


$lfl6E 


CHECKSUM LOW - ■ - 


0440 


6F 


Ifl 


CHKH * 


$lfl6F 


CHECKSUM HIGH "■_ " 


0450 


70 


Ifl 


Sfl # 


$1070 


STARTADDRESS ' ^;. , .„ 


0460 


78 


Ifl 


SflNB * 


$1078 


TEMP OF PBi>-BITS- - ■ • 7^'.-. ; 


0470 


79 


Ifl 


ID * 


$1079 




0480 






IN / OUT DEFINITIONS 


0490 


81 


Ifl 


PflDD * 


$lflai 


DATA DIR. REG. OF PORT A - " 


0500 


82 


Ifl 


PBD * 


$1082 


DATA REG. OF PORT B 


0510 
0520 


83 


Ifl 


PBDD * 




,P0TA JJIR. SES, QF^PQgJ . 

- ■ ■ ■ • - ■ ( 


0530 






MflIN PROGRAM 





TAPE 



0550 


0200 


A9 


32 




START LDAIM 


$32 


0560 


0202 


8D 


82 


lA 


STA 


PBD 


0570 


0205 


8D 


78 


lA 


STA 


GANG 


0580 


0208 


A9 


7E 




LDAIM 


$7E 


0590 


020A 


8D 


83 


lA 


STA 


PBDD 


0600 


020D 


fl9 


7F 




LDAIM 


$7F 


0610 


020F 


8D 


81 


lA 


STA 


PADD 


0620 


0212 


A9 


00 




LDAIM 


$00 




! 0214 


BD 


6€ 

m 


lA 


STA 


CHKL 


i ©2517 8© 


lA 


STA 


CHKH 



PB0,PB7 INPUT 

PAO. . PAS OUTPUT 
7-SEGMENTS DISPLAY ON 

RESET CriK 
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CHTflPE DE 6502 KENNER 



PflSE 02 



0650 




fl9 


FF 






1 nOT |y| 

L.i/ri X rl 


*FF 




0S60 


: 02 IC 


8D 


6B 


10 




STO 




rWQRQrTFQ 


0670 


: 021F 


20 


C2 


OB 


SVMCO 

w I lYWn 




r\x/c X t 




0680 


: 0':^22 


6F 


6Fi 


10 






PMDR 




0690 


: 0225 


flD 


6B 


10 




I no 


PHQR 
Liiipi n. 




0700 


: 0"'2S 


20 




OR 












■ iilL ^ U 




1 6 








VxD 




07?0 




no 


FO 






RMP 


QVWPQ 
w I JNUH 


Du Ui\ UN 1 X L 


07"^0 






00 






L.L/ T X 1*1 


*OQ 


1 A Qvwrc AM onu 

X U C3 T iNLo UiM nuw 




■ V ^ tJ 1 


AP 




1 O 




CTV 


QV 


CVMP Pni IMTCO 


V f iJv 


» ji. J ^ 


20 


WW 


or 


TPWCivw 

1 CiNO T IN 


TQP 




fjcQn Pi-iQoapTFO 


0760 




20 


sn 


or 








c; VMrrwDOQrTFD 


0770 


; 0230 


C9 








u»rir' X n 


VXD 


CTTI 1 CVMP 0 


0780 


; 023C 


DO 


nc 








W T iNLr 


Wn ORQ T M 




: 0~'"^F 


PC 


D 7 


1 Q 




npp 


QV 
S T 


1 A cvwpc Qi Dcanv i 

STnlwS HLKCHUT / 


0800 


■ V.' ^ fc+ 1 




r 1 






R\(P 


TCMCV\( 
1 £lNO T IN 








■"■'('1 




or 


o I Mn 


J D r\ 


nciHiJLri 


DFOn PUQDOrTwO 








sn 


uu 




Ji3r< 


UnHnVU 


CVMPPUODOPTCO 

O YNL/LnHKHU 1 cK 


OATH 




r9 










' -v. 


CTOD *} 
9 1 Hn r 






r \j 


OP. 






Rpn 


CTDPQ 










1 P. 






PMD T M 
Urlr X rl 


«t 1 A 

* iO 




DA fin 




r y 








Rcn 






OA 70 




no 


on 






RMP 


D 1 Mr\ I 


i\iu 1 n i i\a ! 1 nciN HuH x >M 








sn 


or 


o • ri»\M 




wrlMnVU 


OU 1 X 1 


0690 


0 "'56 


20 


F3 


OR 




*JOT\ 




DCQn RvTF /Tni 

nCHU STIC VXU/ 






fln 


79 


1 0 




O 1 M 


Tn 


Drive. 1 I 


6910 




y'O 


FT 


OR 




tJ O lA 


RHRVT 


SFQn RVTF fCQI ^ 






20 




or 




J On 




on Tl ICT PWl^ 




0262 


AS 


FQ 






QT07 
O 1 Mi. 


DD T KIT 
f- U i IN 1 




09^0 




SD 


70 


1 0 

X n 






QQ 




09 "lO 


0'''67 


20 


F3 


OB 




w w n 




RFOn RVTF fQi%4V 


0960 


026fl 


20 


4B 


OC 




w w r\ 






0970 


026D 


85 


FB 










+01 


0980 


026F 


8D 


71 


10 

X PI 




win 


•50 


+01 

~vX 


0990 


0272 


20 


F3 


OB 




TS(? 


SnRYT 


PFOn RVTF fnOTOl 

r\Crii/ STIC V Uri 1 M / 








•?9 






O'l X 


ROnTOD 
Dni/ 1 rlr' 


Tl 1 FROI ? 


1 0 1 0 . 


Ci ''77 


FO 


OF 






Rpn 




FMnPHQBQPTFB / ■> 








AR 


or 




TQP 




ori Tl ICT ruu 








FD 






X viLiL 


on T MT 
KU X EM I 


DAT KIT ^1 
KUxNI Ti 






no 


(') 






RMP 


DMT Tl IM 




1 OSO : 


jL. O V 










INCZ 


DDT WT 


4.A 1 
▼vx 




O'^fl*"' 




P. A 

DM- 


or 


PNTJUM 


JSR 


Ul 1 
VU 


RAT TT 
UU 1 X 1 


1 (")70 : 


OOAS 


AP 


79 


O'' 




JMP 


DWTi ID 






0?AA 


90 


r ij 


OR 


CHECK 


JSR 


(jnovT 


DFOn DVTC tfMktt \ 

nc.HU J3T 1 c lunivi.^ 




0"?AR 


rn 


DC 


1 O 




CMP 


unr\L 


Lnr\ tiLqx F nUL 


1 1 no ! 


0'7AP 


no 


1 O 

X \J 






sm 


CQHTOD 
CfHU 1 HF 


1 1 1 o ■ 


O-^QO 


■70 


r «j 






JSR 


nUoT 1 


KcHU BY It (LMKM) 


1 1 ''O ■ 
X X ■ 




rn 


CP 

or 


1 Q 




CMP 


UrllMl 




1 1 TO : 

X X OL' ■ 


yjjL JO 


no 


OA 






BNE 


SHU i HK 




1 1 AO ! 
X X ■ 






OO 






LDflIM 


AAA 


CFT P'TOI iri AR 

sc 1 L. 1 nL r i.Ho ^ ^ 


1 1 so 5 




An 


SA 


1 Q 




STft 


TT Rl 




1160: 


029D 


4C 


05 


02 




JMP 


SCREEN 




1170: 


02ft0 


09 


01 




BflBT«P LDAIM 


$01 


SET CTRL FLflS 


iiao: 


02fl2 


8D 


58 


10 




STfi 


CTRL 




1190: 


0205 


20 


BC 


14 


SCREEN 


JSR 


RESTTY 


I/O FOR PM 


1200: 


0206 


20 


ES 


11 




JSR 


CRLF 




12101 


020B 


20 


IF 


03 




JSR 


PRINT 




1220: 


020E 


49 








m. 


'I 




1230: 


02flF 


44 










*0 




1240! 


02B0 


3ft 








as 


7 m 
m 




1250! 


02B1 


20 










* 




1260: 


02B2 


20 








ss 






1270! 


02B3 


03 










$03 




1280! 


02B4 


AO 


79 


10 




LOA 


ID 


PRINT ID 



5 D iE! 



CHTflPE 



m 6502 KENNEH 



PflSE 03 



1290: 02B7 


20 8F 


12 




PRIYT 


1300: 02BA 


AO 58 


lA 




1310: 02BO 


Fo oe 








1320: 02BF 


20 IF 


03 






1330: 02C2 
1340: 02C3 


20 






if-' 


20 




s 




1350: 02C4 


42 






'B 


1360: 02C5 


41 






'A 


1370: 02C6 


44 






' 


1380: 02C7 


20 




* ■ 


1390: 02C8 


20 








1400 


! 02C9 


03 








1410: 02Cft 


m 00 02 




mtmf 


1420: 02CD 


20 IF ©3 BKJD 


JSR 


PRINT 


1430: 02D0 


20 




« 




1440! 0211 


a# 






t 


14504 0202 


SF 






* 


14605 02D3 


4B 




— 




1470 


! 02D4 


20 




• 




1480 


! 02D5 


20 






' 


1490 


! 02D6 


20 




St 




1500 


! 02D7 


53 




ts 


'S 


1510 


■ 02D8 


41 




s 


'A 


1520 


' 02Dg 


3fl 




at 


' : 


1530 


! 02D0 


20 




w 




1540 


02DB 


20 




- 




1550 


• 02DC 


24 






' $ 


1560 


02DD 


03 




— 


$03 


1570 


02DE 


flD 71 


Ifl 


LDfl 


Sfl 


1580 


02£1 


20 8F 


12 


JSR 


PRBYT 


1590 


02E4 


flD 70 


Ifl 


LDA 


5A 


1600 


02E7 


20 8F 


12 


JSR 


PRBYT 


1610 


02Efl 


20 IF 


03 


JSR 


PRINT 


1620 


02ED 


20 




■* ; 




1630 


02EE 


20 






1 640 


02EF 


45 






■f 


1650 


02F0 


41 






'A 


1660 


02F1 


3ft 




** 


' i 


1570 


02F2 


20 




■as 




1680 


02F3 


20 








1690 


02F4 


24 




— 


' * 


1700 


02F5 


03 




— 


$03 


1710 


02F6 


05 FB 




LDflZ 


PQINT 


1720 


02F8 


20 SF 


12 


JSR 


PRBYT 


1730 


02FB 


05 Ffl 




LDflZ 


POINT 


1 740 


02FD 


20 8F 


12 


JSR 


PRBYT 


1750 


0300 


20 IF 


03 


JSR 


PRINT 


1760 


0303 


20 




m 




1770 


0304 


20 




m 




1780 


0305 


43 




m 


»c 


1790- 


0306 


48 




m 




1800 


0307 


4B 






t It 


1810 


0308 


3fi 




m 


» , 


1820 


0309 


20 






i 


1830. 


030ft 


20 






i 


1840. 


030B 


24 






'$ 


1850- 


030C 


03 




m 


$03 


I860' 


030D 


flD &F 


Ifl 


LDA 


CHKH 


1870! 


0310 


20 8F 


12 


JSR 


PRBYT 


1880: 


0313 


flD 6E 


Ifl • ' 


LDfl 


CHKL 


1890; 


0316 


20 8F 


12 


JSR 


PRBYT 


1900i 


0319 


20 F3 


11 


JSR 


PRSP 


1910! 


031C 


4C 00 


02 


JMP 


START 


1920! 













+01 PRINT SA 



+01 PRINT Efl, 
WAITING IN POINT 



PRINT cm 



31 



CHTJiPE PE 6502 KENNEfl 



Pfl6E 04 



1330 








END PROGRfiM 






1940 
















1950 








PRINT 








1960 








See J 


-ini 0 r 


Paoerware i 


1970 


031F 


68 




PRINT 


PLfl 






1980 


0320 


85 


23 




STfiZ 


PRPNT 




1990 


0322 


68 






PLfl 






2O00 


0323 


85 


24 




STflZ 


PRPNT 


+01 


2010 


0325 


E6 


23 


PRTfl 


INCZ 


PRPNT 




2020 


0327 


DO 


02 




BNE 


PRTB 




2030 


0329 


E6 


24 




INCZ 


PRPNT 


+01 


2040 


032B 


fiO 


00 


pmB 


LDYIM 


$00 




2050 


032D 


Bl 






LDfllY 


PRPNT 




2060 


032F 


C9 


03 




CMPIM 


$03 




2070 


0331 


FO 


06 




BEQ 


PRTC 




2080 


0333 


20 


34 13 




JSR 


PRCHfl 




2090 


0336 


4C 


25 03 




JMP 


PRTfl 




2100 


0339 


fl5 


24 


PRTC 


LDPIZ 


PRPNT 


+01 


2110 


033B 


48 






PHfl 






2120 


033C 


fl5 


23 




LDfiZ 


PRPNT 




2130. 


033E 


46 






PHfl 






2140! 033F 


§0 






RTS 







ii fm mmm mdio-mtHmmkr 0p k C3M 61 mmim^, ten «( 



mjm^fmfiit pfermeti^mH^ jwfcijm, ^Mik 'Keltic* CTKJif 



Www frWWW / 



jmk mm 
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KENIMER 



0 LIST 
SCR # 0 

0 --> 

1 DEZE FORTH WOORDEN MAKEN HET MOGBLIJK OH EEH HEXDOHP 

2 EN EEN ASCIIDUMP AF TE DRUKKEN 
3 

4 HEXDUHP 
5 

7 hmmmp 

8 
9 
10 

11 GERT KLEIN 

12 DIEDENWEG 119 

13 6706 CM WAGBNIllGEii 

14 02-06-1984 
15 

OK 

1 LIST 
SCR # 1 



( ADRl ADR2 ~ ) 

ORUKT OE mamm tmrnt ums tmi m mm 

AF, 

( ADRl ADR2 — ) 

ORUKT OE ASCIIOUMP TUSSEN ADRES AORl EN A0R2 
AF. 



0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 



( HEXDunp 1 tm. 3WS, it f 

0 VARIABLE POINT ' ' 

0 VARIABLE ENDAO 

HEX 

: U. 0 D. : < PRINT AN UNSIGNED NUHBER ) 
: FETCHBYTE POINT i C@ : ( FETCH BYTE FROM POINT ) 
: .0 0 DO 30 EMIT LOOP : < PRINT N NULL3ZER0ES ) 
: .POINTER POINT @ ( PRINT POINTER WITH LEADING ZEROES ) 
DUP 10 < OVER FFFF > AND IF 3 .0 ENDIF 
DUP 100 < OVER OF > AND IF 2 .0 ENDIF 
DUP 1000 mm PP » and if 1 .0 ENDIF 
u. : 

( PRINT TOP ROW 0 TO F ) 
•ROW 5 SPACES 10 0 DO 



7ASC1I DUP 7F < OVER 20 > 



I . SPACE LOOP CR : 

AND : ( VAUD asm t } 



15 DECIMAL 
OK 

2 LIST 
SCR # 2 



0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
OK 

3 LIST 
SCR # 3 



( HEXDUMP 
HEXDUMP 
BEGIN 
00 



ENDAD ! POINT ! 
CR .POINTER 16 
FETCHBYTE DOP 
IF ( YES ) 

48 EMIT < mm ZERO > 

ENDIF 

. 1 POINT 
POINT @ ENDAD 
IF < YES ) 
QUIT < TERMINATE PROGRAM > 

Emm 

LOOP ( NEXT BYTE ) 

AGAIN : ( ALWAYS ) 



GKL JUNI 84 ) 
CR CR .ROW ( SAVE POINTERS ) 
0 ( PRINT 16 BYTES > 
{ LEADING ZERO ? > 



16 



( INCREMENT POINT ) 
@ = ( DONE ? ) 



— > 



0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
QK 



GKL JUNI 84 } 
.ROW ( SAVE POINTERS ) 



( ASCII DUMP 

: ASCDUMP ENDAD ! POINT ! CR CR 

BEGIN CR .POINTER 16 0 (16 CHARACTERS ) 
00 FETCHBYTE 7ASC1I ( PRINTABLE ASCII ? > 
IF ( YES ) 

SPACE EMIT SPACE 



( OUTPUT IT ) 



ELSE ( NOT PRINTABLE ) 



DROP 3 SPACES 
ENDIF 

1 POINT +! 
POINT § ENDAD 
IF ( YES ) 

QUIT 
ENDIF 
LOOP 

AGAIN ( ALWAYS ) : HEX 



< OUTPUT BLANKS ) 



( POINTER ♦ 1 ) 
9 e ( DONE ? } 



:s 
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P^F» 5 D KENNER 



i¥N^i Basic 

Tokenized Microsoft Basic Keywords and addresses W. L. van Pelt 

fttiitiitwi to tt«R i«il$f@gfe|«fi fer Cotmoaem^ im Mueller, 
DE &S02 KEI#ER, December pages 5-8. 



ctmmm 



KiVWQi«»S a3ftfSSP0h(DIh@ TO C(»9 
ADDRESSES CORRESPONDING TO C003 

THE ADDRESSES OF ROUTINES FOR COMMANDS ARE THE ADDRESSES 
MINUS i. l^yii THi ItOUTII^S AM mf&m fHiDUGH RTS. 





mm 










WW 


60 


C&23 


mm 


92 


D5E2 


FOR 


81 


C534 


LOAD 


93 


C&B& 


^EXT 


62 


CAD7 


SAVE 


S4 


Ci7S 


dPlWt 


83 


C781 


VERIFY 






INPUT* 






DEF 




D16B 


INPUT 


84 


C9B6 


POKE 


96 


DSOi 


DIM 


8S 


CE54 


PRINT# 






READ 


8& 


C9E4 


PRINT 


97 


CSBD 


LET 


87 


C62E 


CONT 


9ft 


C64A 


SOTO 


86 


C72E 


LIST 


ft 


C4AC 


RUN 


flg 


C706 


CLR 


ill ' 


C471 


IF 


6A 


C7B1 


CMD 






RESTORE 


8B 


C609 


SYS 






GOSUB 


8C 


C711 


OPEN 






RETURN 


6D 


C75B 


CLOSE 






REM 


8E 


C7C4 


BET 


9B 


DOOl 


STOP 


8F 


C621 


NEW 


9C 


CASS 


ON 


90 


C7D4 








NULL 


91 


€684 









« r 

( MISCELLANEOUS KEYWORDS | 

I KEYWORDS CORRESPONDINB TO C0F9 I 

KEYWORD TOKEN 



TRB( 


90 


m 


m 


m 


9F 


SPC( 


AO 


THEN 


Al 


NOT 


A2 


STiP 


A3 
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Mmmmitlmmmmgimm 



SYM-l Ba»ic 



Tokertized Microsoft Basic keywords and addresses 



w'': -Ji. 

H "4 >»•!'- iff.' r • 



I 



mmic (xmmmm 

KEYWORDS CORRESPONDING TO CI 10 



KEYWORD 



PRIORITIES AND ADDRESSES CQRRESPCMDINS TO C06& 

THE ADDRESSES OF ROUTINES FOR DYADIC OPERATORS ARE THE 
ADDRESS MINUS 1, BECAUSE THE RQUTli^S ARE INVOKED 
THROUGH A RTS INSTRUCTION. «* 



TOKEN ADDR-1 PRTY 



r 
I 

i if. 

I 
I 





A4 


D61F 


79 




AS 


D&oa 


79 


« 


A& 


D7E0 


7B 


/ 


A7 


DaC7 


7B 




AS 


DCFC 


7F 


AND 


09 


CD27 


50 


OR 


AA 


CD24 


46 


Bomdic "-" 


AB 


DD35 


7D 


inonadic NOT 


AC 


CC73 


5A 


> = < 


AD 


CD54 


64 



addition 

suDtraction 3-^3, ^iv; r i^,-::^ 
mu 1 1 i D 1 i caMap." vTlTj?. ?i 
division 
exoonentation 
loqical AND 
loaical OR 

loqical NOT 
comoarison 



I- ..Tt; '-^ 



y 1" 'u' 



FUNCTIONS 

FUNCTIONS CORRESPONDING TO CI ID 
ADDRESSES CORRESPOND INS TO C03D 



-f^ r^' tun - 



I 
I 



fOKef mm 



SGN 




AE 


D9EF 


TAN 


BA 


O0C3 


INT 




AF 


DA62 


ATN 


BB 


0^3 


ABS 






wxm 


psm 




mcs 


USR 




Bl 


OOOA 


LEN 


BD 


D531 


FRE 




B2 


D13B 


STR» 


mi" 


D21E 


PDS 






D159 


VAL 




0562 


SQR 




B4 


DCF3 


ASC 




D540 


RND 




B5 


DE14 


CHR$ 




D4A1 


LOG 




e& 


D7A0 


LEFT* 




D4B5 


EXP 




B7 


DD6F 


RIGHT* 




D4E1 


COS 




B6 


00C3 


MID* 


CA ^ 


D4EC 






69 


00C3 








Notas 


1) Bit 


7 in 


thtt last character 


of each keyword 


is set to 


determ 








if a keyHord 









2) Keywords are tokenized by ade(ir«| st'S©^ io "their H(la*ive (h»x) 
position in the table. 



Mi 



88!C^- AND LORD 



PROTON 6S0X flSSEMLES MBE; 0001 



0001 0000 

0002 0000 

mz 0000 

0004 0000 

0005 0000 

0006 0000 

0007 0000 

oooa 0000 

0009 0000 

0010 0000 

0011 0000 

0012 0000 

0013 0000 

0014 0000 

0015 0000 

0016 0000 

0017 0000 

0018 0000 

0019 0000 

0020 0000 

0021 0000 

0022 0000 

0023 0000 

0024 0000 

0025 0000 

0026 0000 

0027 0000 

0028 0000 

0029 0000 

0030 0000 

0031 0000 

0032 0000 

0033 0000 

0034 0000 

0035 0000 

0036 0000 

0037 0000 

0038 0000 

0039 0000 

0040 0000 

0041 0000 

0042 0000 

0043 0000 

0044 0000 

0045 0000 

0046 0000 

0047 0000 

0048 0000 

0049 0000 

0050 0000 

0051 0000 

0052 0000 

0053 0000 

0054 0000 

0055 0000 

0056 0000 

0057 0000 
005B 0060 

OOGO 

0060 0062 

0061 007B 

0062 007D 

0063 007D 
m 0081 

m m 

m IS 

ooea 0088 

0069 C27E 

0070 C27E 

0071 C27E 

0072 C27E 

0073 99E8 

0074 99Ea 

0075 99EB 



.TIT 'BASIC SflVE- AND UW 
•SET " 



m SWE- EN LOAD ROUTINES NflflR FUlPPY-illSK *** 
mmmiwmMmtwmmwummi*mumnn 

f #IEUR: F.J.N. SMEEHUIJZEN 
; LIPPEDflL 19 J 

2904 CL CflPELLE flflN 101 I38aa - • 

TEL: 010-512507 

DE NU VDL6ENDE ROUTINES ZIJN GESCHREVEN VOOR EEN SY5TEEM 

DAT 6EBRUIK HMKT VAN DE PROTQN-NONITOR. 

VflNDflflR EEN KORTE UITLEG VflN DE GEBRUIKTE SUBROUTINES. 

- NET DE ROUTINE 'OUTRO' WORDT HET OUTPUT-DEVICE BEPflflLD 
mmM\R GESCHREVEN IffiET UORIDI. 

- NET DE IfflUTINE ' INFLOP' UORDT EEN OUTPUT-DEVICE BEPflflLD 
UflARVflN GELEZEN MOET UORDEN. 

- MET DE ROUTINE 'FLOPO' HORDT GEVRflflGD NflflR DE FILENflNE 
m l€T ^6 TE SCHRIJVEN BESTflND. 

- HET DE ROUTINE 'FLOPI' UORDT GEVRflflGD NflflR DE FILENflIC 
VflN HET IN TE LEZEN BESTflND. 

- NET DE ROUTINE 'CLOSED' MORDT HET OUTPUT-DEVICE flF- 
BESLOTEN. 

- NET DE ROUTINE 'OUTflLL' MORDT DE flCCU-IWOUD NflflR HET 
OUTPUT-DEVICE GESCHREVEN. 

- HET DE ROfTINE ' INftl' UORDT DE IhMUD VflN HET VflN TE 
VOREN 0P6EGEVEN INPUT-DEVICE OPGEHflflLD. 

- HET DE ROUTINE 'CLOSEI' HORDT HET INPUT-DEVICE 
flFGESLOTEN. 

I HE 9WE-R0UTINE UORDT mBsm mm mmm m m 

I HflAfMft ^RVQUiVM ffifil *99E8 UORDT GESPRONBQL 

DOOR lET INTOETSEN VflN HET 

il^iiniirrlQMiim 

ZIE VOOR BEIDE KOMNMDO'S OE BESCHRIJVINB WW HET TOEVDEGE 

VflN NiEUi msi^ mmms m k.k. 29. 




*** ZERO PAGE DEFINITIONS *** 




EOSL 



UflRH 



TQVORARY ADDRESS POINTER 1 
TgiiORARY ADDRES POINTER 2 
mm OF BASIC SOURCE LOU 
END OF BASIC SOURCE LOU 
BEBIN OF BASIC DATA LOU 
END OF BASIC DATA LOU 
BEBIN OF BASIC STRING AREA LOH 
B6 OF BASIC STRINB AREA LOH 



; BASIC HARH START 



BASIC SAVE- AND LOAD 



PROTON 650X ASSOfiLER V4.4 PAGE: 0002 



0076 


99E8 


20ED9A SAVEP 


JSR OJTFLO 


OPEN OUTPUT DEVICE 


0077 


99EB 


20F09A 


JSR FLOPO 


ASK FOR FILENAME 


007B 






FILL POINTERS BASIC SURGE Cm 


0079 


99F1 


2(XK9A 


m ofrrauT 


SAVE PR06RAM 


om 


99F4 


20679A 


JSR NULL ; 


FILL POINTERS ZERO PAGE (HEA 


0061 


99R 


2(^9A 


DATOUT 


njuH* wfm KWttt^ 

SAVE ZERO PAGE 


0082 


99FA 


20F39A 


JSR CLOSED 


CLOS FILE 


0083 


99FD 


20FF9A 


JSR HEAD 


DuELuTT FLniPT 


0084 


OAAA 


60 


RTS 




0085 


9fK)l 


20ED9A SAVED 


JSR OUTFLO 


OPEN OUTPUT DEVICE 


0086 


9A04 


20F09A 


JSR FLOPO 


ASK FOR FILENAME 


0087 


9fl07 


20849A 


JSR BDATA 


FILL POINTERS BASIC DATA AREA 


0088 


9A0A 


20BE9A 


JSR DATOUT 


SAVE DATA AREA 


0089 


9A0D 


20A19A 


JSR BSTRIN 


FILL POINTERS BASIC STRING AREA 


0090 


9fll0 


20BE9A 


JSR DATOUT 


Sm. STRII^ AREA 


0091 


9A13 


20F39A 


JSR CLOSEO 


CLOSE FILE 


(K)92 


9A16 


20FF9ft 


JSR HEAD 




0093 


%19 


60 


RTS 





0094 9Alfl 

0095 9fllfl 
00% 9fllfi 

0097 9fllfl 

0098 9A1D 

0099 9A20 

0100 9A23 

0101 9A26 

0102 9A29 

0103 9A2C 

0104 9fl2F 

0105 9fl32 

0106 9A35 

0107 9fl35 

0108 9fi35 

0109 W35 

0110 9fl35 

0111 9fl37 

0112 9A39 

0113 9A3C 

0114 9A3E 

0115 9A40 

0116 9A43 

0117 9A45 

0118 9A48 

0119 9A4A 

0120 9A4C 

0121 9A4F 

0122 9A51 

0123 9A52 

0124 9fl52 

0125 9fl52 

0126 9fl52 

0127 9fl52 

0128 9ft55 

0129 9fi57 

0130 9A5fi 

0131 9A5C 

0132 9A5F 

0133 9A61 

0134 9A64 

0135 9A66 

0136 9A67 

0137 9A67 

0138 9A67 

0139 9A67 

0140 9A69 

0141 9A6B 

0142 9A6E 

0143 9fl70 

0144 9A72 

0145 9A75 

0146 9fl77 

0147 9A79 

0148 9A7C 

0149 9A7E 

0150 9A80 

0151 9Aa3 
01^ 9A84 
0153 9AB4 



*** LOflD-ROUTIIC VOOR DE SYM-1 BASIC *** 



20029B LOftDP 

20059B 

20529A 

20CB9A 

20529A 

20CB9A 

20FC9A 

2GFm 

4C7EC2 



JSR INFLOP 
JSR FLOPI 
JSR PR6IN 
JSR DATAIN 
JSR PR6IN 
JSR DATAIN 
JSR CLOSEI 
JSR HEAD 
JMP WARM 



OPEN INPUT DEVICE 

ASK FOR FILENAME 

LOAD START ADDRESS BASIC SOURCE 

LOAD DATA 

LOAD START ADDRESS ZERO PAGE 
LOAD DATA 
CLOSE INPUT DEVICE 
DESELECT FLOPPY 



•** SUBROUTINE TO WRITE START- AM) EKB) m 
tit mm OF BASIC SOURCE 10 FUPQU mr> 



fl57B PRGOUr LDA BOBL 


BEGIN ADDRESS LOU 


8560 


STA TEMPA 


COPY ADDRESS 


20F69A 


JSR OUTALL 


yRITE TO FLOPPY 


ft57C 


LDA BOBL+1 


BESIN ADDRESS HIGH 


8561 


STA TENPA+1 " • 


COPY ADDRESS 


20F69fl 


JSR aJTW± 


WRITE TO FLOPPY 


fl57D 


LDA EOBL 


END ADDRESS LOU 


20F69A 


JSR OUTALL 


HRITE TO FLOPPY 


8562 


STA TEMPB 


COPY ADDRESS 


fl57E 


LDA EOBL+1 


END ADDRESS HIGH 


20F69A 


JSR OUTALL 


WRITE TO FLOPPY 


8563 


STA TEMPB+1 


COPY ADDRESS 


60 





*** SUBROUFSi TO READ START- AND END *** 
m ADDRESS OF BASIC SOURCE FROM FLOPPY *** 



20F99fl ^RGIN 

8560 

20F99fl 

8561 

20F99A 

8562 

20F99A 

8563 

60 



JSR imi 

STA TEMPA 
JSR INALL 
STA TEMPA+1 
JSR INALL 
STA TEMPB 
JSR INALL 
STA TEim^ 
RTS 



READ FROM FLOPPY 
STORE START ADDRESS LQH 
READ FROM FLOPPY 
STORE START ADDRESS HIGH 
READ FROM aOPPY 
STORE END ADDRESS LOU 
READ FROM FLOPPY 

mm m mum high 



m SUBROUTINE TO SAVE ZERO-PAGE POINTERS *** 



ft%5 NII.L 


LDA *«65 


; START OF ZERO-PAGE POINTERS 


8560 


STA TEMPA 




20F69A 


JSR OUTALL 


; WRITE TO FLOPPY 


A900 


Ll» «*00 




8561 


STA TEMPA+1 




20F69A 


JSR OUTALL 


; WRITE TO FLOPPY 


A9EA 


LDA f«EA 


; END OF ZERO-PAGE POINTERS 


8562 


STA TEMPB 




20F69A 


JSR OUTALL 


; WRITE TO FLOPPY 


A900 


LDA «00 




8563 


STA TEMPB+1 




20F69f) 


JSR oum 


; NRI1E 10 FLOPPY 


60 


RTS 





*** WRITE START- AW EDBMDDRESS OF *** 



37 



E^E 5 □ E! 



KEIIMNER 



wmwm^mim 



0154 9A84 

0155 9A84 

0156 9084 

0157 m 
OlSB 9A86 

0159 9A8B 

0160 9AeD 

0161 gft8F 

0162 9092 

0163 9094 

0164 9fl% 

0165 9ft99 

0166 9A9B 

0167 9A9D 

0168 9flfl0 

0169 9AA1 

0170 9M1 

0171 9flAl 

0172 9flAl 

0173 9M1 

0174 «A3 

0175 9flfl5 

0176 9nAB 

0177 9flflfl 

0178 9flflC 

0179 9flflF 

0180 9AB1 

0181 9fl63 

0182 9AB6 

0183 9flB8 

0184 9fl6fl 

0185 9ABD 

0186 9flBE 

0187 9flBE 
0168 %K 

0189 9flBE 

0190 9flC0 

0191 9ftC2 

0192 9flC5 

0193 9flC8 

0194 9ACfl 

0195 9ACB 
01% 9nCB 

0197 9ffi:B 

0198 9flCB 

0199 9flCD 

0200 9flD0 

0201 9flD2 

0202 9flD5 

0203 9flD7 

0204 9flD8 

0205 9AD8 

0206 9A08 

0207 9flD8 

0208 9flD9 

0209 9ADB 

0210 9flDD 

0211 9flDF 

0212 9flEl 

0213 9ftE3 

0214 9flE4 

0215 9flE6 

0216 9AE8 

0217 9flEfl 

0218 9flEC 

0219 9fe 

0220 9flED 

0221 3PB 

0222 9flED 

0223 9flF0 

0224 9flF3 

0225 9flF6 

0226 9Pf3 

0227 9flFC 

0228 9flF 

0229 9B02 

0230 9B05 
0251 



; *** BflSIC DflTfl flREft TO FLOPPY 



*** 



A57D ^MTfl 

8560 

20F69fl 

fl57E 

8561 

20F69fl 

AS81 

8562 

20F69fl 

R582 

8563 

20F69A 

60 



UM BODL 
STfl TEHPfl 
JSR OUTflLL 
LOA BQDL+1 
STfl TENPft+1 
JSR OUTflLL 
LDfi EODL 
STfl TEHPB 
JSR OUTflLL 
LOA EODL+1 

STA mmi 

JSR QUTflU« 
RTS 



; BE6IN OF BflSIC DflTA AREA LOU 

; HRITE TO FLOPPY 

I BEBIN OF BASIC DATA AiER HISH 

; HRITl TO FLOPPY 

; END OF BflSIC DflTA AREA LOU 

; WRITE TO FLOPPY , 

roe (F BASIC BPR Millit 



\M "At: 



*** WRITE START- AND 

I iw flffi^ intM Mill 



R583 

8560 

20F69A 

fl584 

8561 

20F69fl 

fl587 

8562 

20F69fl 

fl588 

8563 

20F69fl 

60 



flOOO 

B160 

2«^69fl 

20D89fl 

B0F4 

60 



iSTRIN 



LOA BOSL 
STfl TEHPfl 
JSR OUTflLL 
LDfl BOSL-^l 
STfl TENPft+1 
JSR OUTflLL 
LDfl EOSL 
STfl TENPB 
JSR OUTflLL 
LDfl EOSL+1 
STfl TEHPB+1 
JSR OUTflLL 

m 



ENDADDRESS OF m 

; BEBIN OF BASIC STRINB AREA LOU 

; HRITE TO FLOPPY 

; BEGIN OF BASIC STRINB AREA HIGH 

; WRITE TO FLOPPY 

; BO OF BABIC STRINB AREA UM 

; WRITE TO FLOPPY 

; END OF BASIC STRING AREA HIGH 

; WRITE TO FLOPPY 



•M OUTPUT DATA TO FLOWT «w 



LDY »iOO 
LDfl <TENPfl),Y 
JSR OUTflLL 
JSR ADRES 
BCSOATDUr 
RTS 



; WRITE TO FLOPPY 

; CALCULATE END OF DATA 



♦« INPUT DflTfl FROM FLOPPY «* 



flOOO ^TAIN 

20F99fl 

9160 

20D89fl 

B0F4 

60 • 



LDY #$00 
JSR INflLL 
STfl (TENPfl),Y 
JSR ADRES 
BCS DATAIN 



; READ FROM FLOPPY 
; OALCULfldE Be OF DflTA 



•» iNOEMBfT Dflm wsm *** 



18 

fl901 

6560 

9002 

E661 

8560 

38 

fl562 

E560 

fl563 

E561 

60 



CLC 
LDfl «I01 
ADC TENPA 
BCC flDRl 
INC TENPft+1 
flORl STfl TEMPfl 
SEC 

LDfl TEMPB 
SBC TEMPA 
LDATENPB+1 
SBC TENPAtl 

RTS 



m SENIOR MONITOR ROUTIiCS m 



ADD 1 TO TEMPORARY POINTER 



QiflilSlK-AMDSi'' 



6C38E0 OUTFLO 
6C3CE0 FLOPO 
6C0CE0 CLOSED 
6C08E0 OUTflLL 
6C06E0 INALL 
&COflEO CLOSEI 
6C28E0 

6C36E0 INFLOP 
6C3AE0 FLOPI 



($E038) 
(«E03C) 
JMP (SEOOC) 
JMP (SEOOB) 
JMP «E006) 
JMP («E00A) 
JMP «E028) 
JMP ($E036) 
JMP ($E03A) 



JMP 
JMP 



E 5 □ S 



KENMEIR 



>flSS L 



3fl7E- 
3080- 
3083- 
3fl85- 
3ft88- 
3ft8B- 
3fl8D- 
3ft8F- 
3fl91- 
3093- 
3095- 
3097- 
3099- 
309B- 
30gD- 
30gF- 
30fll- 
3004- 
30fl6- 
30fl8- 
30flfl- 
30flD- 
30ftF- 
30B1- 
30B3- 



fig oc 

20 03 FE 

09 83 

8D F7 FO 
2C D5 Ffl 

10 FB 
02 40 
86 FB 
02 00 
86 FO 
86 00 
86 01 
09 3D 
00 00 
E6 FO 
91 FO 
20 03 FE 
05 FO 

C9 3F 
DO EF 
20 60 2D 
E6 FB 
05 FB 
eg 45 
DO DC 



30B5- 02 00 
30B7- 20 6F 2D 
30Bfl- CO 
Zfm- DO FA 



CO 10 

0020 

0030 

0040 

0050 

0060 

0070 

0080 

0090 

0100 

0110 

0120 

0130 

0140 

0150 

0160 

0170 

0180 

0190 

0200 

0210 

0220 

0230 

0240 

0250 

0260 

0270 

0280 

0290 

0300 

0310 

0320 

0330 

0340 

0350 

0360 

0370 

0380 

0390 

0400 

0410 

0420 

0430 

0440 

0450 

0460 

0470 

0480 

0490 

0500 

0510 

0520 

0530 

0540 

0550 

0560 

0570 

0580 

0590 

0610 

0620 

0630 

0640 

0650 

0660 

0670 

0680 

0690 

0700 

0710 



WOLUiREflKER FOR JUNIOR WITH OHIO-DOS 

THIS PROGROM IS 0 LITTLE DERlVfiTlON OF THE 
VIDEOGAME 'BREAKOUT'. 

BREAK THE WOLL. FOR EACH STONE yOU'LL GET 
POINTS. 

§I2F2P.°5!|S^f3A7E. OS SOON AS THE CONON 
BOES ON fm 0^. YOU MAY SHOOT WITH <BRK>. 

THE ROUTINE FOR JUNIOR WOS PUBLISHED BEFORE 
IN THE 6502 KENNER. EDITION NR. 22. AUGUST 
1982. BY W.J. KUITEMS. 

NOW MODIFIED FO,R JUNlO/l WITH OHIO-DOS BY: 

HENK MOCKING 
't ZAND 42 
345^ as VLEUTEN 



PRCHO 

CNTD 

RDFLOB 

LFEED 

CRLF . 

BRKL ' 

BRKH 

PRBYT 

POINTL 

POINTH 

PNTl 

PNT2 

WINST 

DWNEXT 

TEMPO 



WALL 



DELO 



.DE $FE03 
.DE *F0F7 
.DE $F0D5 
•DE $2D6F 
.DE *2D6fl 
.DE $F07C 
.DE $F07D 
.DE *2D92 
.DE $00F0 
.DE $OOFB 
.DE $0000 
.DE $0001 
.DE $0002 
•DE $0003 
.DE $F060 

.BA $307E 



VUL 



VL 



LDO 
JSR 
LDO 
STO 
BIT 
BPL 
LDX 
STX 
LDX 
STX 
STX 
STX 
LDO 
LDY 
INC 
STO 
JSR 
LDO 
CMP 
BNE 
JSR 
INC 
LDO 
CMP 
BNE 



#$0C 
PRCHO 
#$83 
CNTD 
RDFLOB 
DELO 
#$40. 
♦POI 
#0 

*POINTL 
#PNT1 
*PNT2 
#$3D 
#0 

♦POINTL 
(POINTL^ 
PRCHO 
♦POINTL 
#$3F 
VL 

CRLF 
♦POINTH 
♦POINTH 
#$45 

VUL 



: PRINT CHOR FROM OCCU : 

: COUNT 1024T NO IRQ 

: FLOG-REGISTER 

: PRINT LINEFEED 

tmMm^. 

f-^RINT BYTE FROM Ht^, 
: ODDRESS POINTER 

: 'STOND' REGISTER 

: 'WINST' REGISTER. 
: EXTRO <LF> REGiam^-^ 
: TEMPX IN PSCHft.o; 



CLEOR SCREEN 

132 mS TILL SCREEN IS 

WHEN DELA IS OVER. GONTIi^ifi 

^ f FROM HERE ON WE ORE 
I GOING TO FILL LINES; - 
: WITH ' =« ' AND UP: 
: ALSO STORE IT IN 
: MEMORY. FROM *4001. . . $403F 
: $4101...$413F/$4201...*423F 
: $430 1 . . . $433F/«*401 * . . $443F 
- ALSO SCORE TOT^Ilt 




,i^T TO 0000. 



^•3 -a; 



= ELEKTERMINOL 
: MAX. 64 CHAR. ON A LINE. ON LAST 
: POS. (64) NO 



: WALL BUILD ? 



THE WALL SHOULD BE BUILD NOW. AND SliliD IN 



CUROWN 
LF 



LDX #$00 
JSR LFEED 
DEX 

BNi LF 



v. 



: IF WALL BUI LI. » TO LIf€ 16 



ARE WE ON LINE 16 ? 



39 



Elf El 5 D 



KEIIMMER 





rl 3 












An 


f u 


r M 








DQ 
n Z/ 


30 










An 


7n 


r M 


V r D V 






Hi 


V.' I 




C\T7r\ 








nn 




\J 1 0\J 


3flCB- 


20 


03 


pc 
1 c 








09 


55 






I D 




20 


03 


FE 


DAI n 






09 


08 




0820 






20 


03 


FE 


0830 






fi9 


20 
03 




0840 






20 


FE 


0850 






E8 






0860 


CONT 


3fiDE- 


EO 


40 




0870 




3flE0- 


FO 


E5 




0880 






BO 28 




0890 




m CE 3A 


0900 












0910 


« 




RE 


60 


FO 


0920 SEtn 


■'IQFO— 
»Jr1Cr1 


EO 


40 




0930 






BO 


04 




0940 






a& 


FO 




0950 




3fiF0- 


02 


41 




0960 




3fiF2- 


60 






0970 
0980 


RTN 


30F3- 


09 


OB 




0990 


OMHPOG 




20 


03 


FE 


1 000 


■ ' 


oriro 


09 


20 




1010 






20 


03 


FE 


1020 




30FD- 


09 


08 




1030 






20 


03 


FE 


1040 






09 


20 




1050 






20 


03 


FE 


1060 






09 08 




1070 






40 A3 FE 


1060 












1090 




580C- 

■■JJC7VW 


09 


08 




1 100 


SHOOT 


3B0E- 


20 


03 


FE 


1110 




3Fl1 1 - 


09 


55 




1 IjlO 






20 


03 


FE 


1130 




Jt3 J.D 


09 


08 




1140 






20 


03 


FE 


1150 




TO 1 D 


00 


00 




1160 






20 


F3 


30 


1170 


FIRE 




88 






1180 




TOO 1 


DO 


FO 




1190 




TO 


09 


01 




1200 






85 


02 




1210 






85 


03 




1220 






09 


44 




1230 






85 


FB 




1240 




3B2D- 


20 


F3 


30 


1250 


GET 


3B30- 


00 


00 




1260 




Bl 


FO 




1270 






C9 


3D 




1280 






FO 


2E 




1290 






E6 


02 




1300 






EG 


02 




1310 




3B3C- 

WW WW 


05 


02 




1320 




3B3E- 


C9 


09 




1330 




3B40- 


DO 


05 




1340 




3B42- 


18 






1350 




3B43- 


69 


07 




1360 




3B45- 


85 


02 




1370 




3B67- 


C6 


FB 




1380 


OK 


3649- 


05 


FB 




1390 


3B4B- 


eg 


3F 




1400 




3B4D- 


FO 


05 




1410 




3B4F- 


E& 


03 




1420 






4C 2D 3B 


1430 






m m 







! CANON MOVES ACROSS 16 

: BO TO START OF LINi ii 

: 'U' IS CANON 

: REMOVE 'U' FROM SCI^EM 



BRK SET TO THIS ADDRESS 
OT THE END OF PRCHA THERE 
IS 0 TEST IF BRK IS PUSHED 
,F M THEN THIS SU8TOTIHE 
S THE END OF A JSR pmm 



z PERFORM THE SHOT 
: '*• IS THE BULLIT 



LDO #$E7 

STO BRKL 

LDO #*30 

STO BRKH 

LDX #1 
LDO #$0D 
JSR PRCHO 
LDO #$55 
JSR PRCHO 
LDO «e 
JSR PRCHO 
LDO #$20 
JSR PRCHO 

INX : NEXT POSITION OF CONON fm REB. X 

CPX #$40 : DID WE REOCH END OF LINE OR FIRE 

BEQ LOOPl : BUTTON (BRK) HIT ? 

BCS SHOOT : IF SO. ***FIRE! !*#* 

JMP LP 

LDX TEMPA 
CPX ttt40 

BCS RTN 
STX *POINTL 
LDX #$41 

RTS 

LDO #$0B 
JSR PRCHO 
LDO #$20 
JSR PRCHA 
LDO #8 
JSR PRCHO 
LDO #$20 
JSR PRCHA 

PRCHA 

LDO #8 
JSR PRCHA 
LDO #$55 
JSR PRCHA 
LDO #8 
JSR PRCHA 
LDY #$0A 
JSR 0MH006 
DEY 

BNE FIRE 
LDA *1 
STA »WINST 
STA *DWNEXT 
LDO #$44 
STO #POINTH 
JSR OMHOOG 
LDY #0 

LDO (POINTL). 
CMP #$3D 
BEQ STAND 
INC #WINST 
INC »WINST 
LDA *WINST 
CMP #9 
SNE OK 

CLC : I DIDN 
ADC «7 
STA »WINST 
DEC #POINTH 
LDA ♦POINTH 
CMP «$3F 
BEQ STRPj 
INC #D.. 
JMP SET 
LDA »0 



: BULLIT BOES UP 
: TILL IT REACHES 
: THE WALL 



: BACK TO LAST PRINTED 'U' 



THIS HERE MOVES 
BULLIT UP 
ONE LINE 



: BOTTOM LINE 

: WORTH ONE POINT 

: ALSO EXTRA <LF> 

: BOTTOM LINE IS ON 

: PABE 44 IN MEMORY 

: MOVE INTO LINi 0F WALL 



: IS THERE A STONE ('»' ) 

: YES^ pmm TOTAL 

: NO. MORE POINTS TO WIN 

: ONLY 1. 3.5.7.10 POINTS 

: TO WIN 
'T WANT TO USE 

: DECIMAL CALCULATION 

: LOOK ON NEXT LINE 

: FOR STONE ('=' ) 

: I.E. CHECK MEMORY 

: NO. MINUS POINT 

: NEXT LINE MEANS EXTRO <LF> 

: THIS MEANS A HOLE 



3BS£ 
3B58 
3B59 
3B5A 
3BSC 
31^ 
3B60 
3B62 
3B64 
3B&& 
3B&8 
3B6A 
3B&B 
3B6C 
3BBE- 
3B70- 
3B72- 
3B74- 
3B76- 
3B78- 
3B79- 
3B7B- 
3B7E- 
3B7F 
3B81 
3B84- 
3B86- 
3B89- 
3B8C 
3B8F 
3691 
3B93 
3B96 
3B99 
3B9B 
3B9C 
3B9E 
3BflO 
3BA3 
3Bfi5 
3Bfl8 
5Bm 
3BflD 
3BflE 
3BB0 
3BB2 
3BB4 
3BB7 
3BB8 
3BBA 



B5 02 

38 

F8 

A5 00 
E9 01 
65 00 
A5 01 
Eg 00 
85 01 

fig 20 

91 Ffl 

Fa 

18 

fl5 00 

65 02 



85 
fl5 



00 
01 



69 00 
85 01 
D8 

00 OA 
20 6F 2D 
88 

DO Ffl 
20 BF 3B 
01 
92 



fl5 

20 
flD 00 



88 
DO 
fl9 



20 flj 
88 

DO F8 
06 FA 



3BBF- 
3BC1- 
3BC4- 
3BC6- 
3BC9- 
3BCB- 
3BCE- 
3BD0- 
3BD3- 
3BD5- 
3BD8- 
3BD0- 
3BDD- 
3BDF- 
3BE2- 
3BE4- 



09 OD 
20 A3 



2D 

00 



- 20 92 2D 

AO 08 

A9 FF 

8D F7 FA 

2C D5 FA 

10 FB 



F3 
10 

20 A3 FE 

fig OD 

20 A3 FE 
A4 03 
20 6F 2D 
88 

DO FA 
A4 FA 
Ag 20 



3 FE 



mm- 4c m 3o 



FE 



Ag 53 
20 A3 FE 
Ag 54 
20 A3 FE 
Ag 41 
20 A3 
Ag 4E 
20 03 
Og 44 
20 03 FE 
09 30 
20 A3 FE 
A9 20 
4C A3 FE 



FE 
FE 



1450 
14&0 
1470 
14B0 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 



STAND 



DWN 



DELAY 
BEL 

BLNK 

ZOK 
POSIS 



PRSTND 



STO *WINST : IN THE WALL m 1 
SEC : MINUS POINT 

SED 

LDO *PNT1 
SBC #1 
STO *PNT1 
LDA #PNT2 
SBC #0 
STA *PNT2 

LDA #*20 : THIS HERE PRINTS 

(POINTL). Y 
: THE TOTAL POINTS 
: YOU HAVE WON 
LDA ♦PNTl 
ADC *WINST 
STA *PNT1 
LDA #PNT2 
ADC #0 
STA #PNT2 
CLD 

LDY #*0A : GO DOWN TO POSITION 

: WHERE CANDN WAS LEFT 



STA 
SED 
CLC 



JSR LFEED 
DEY 

BNE DWN 
JSR PRSTND 
LDA *PNT2 
JSR PRBYT 
LDA PNTl 
JSR PRBYT 
LDY #8 
LDA #$FF 
STA CNTD 
BIT RDFLM 
BPL DEL 
DEY 

BNE DELAY 
LDA #$1A 
JSR PRCHO 
LDO #$0D 
JSR PRCHO 
LDY #DWNEXT 
JSR LFEED 
DEY 

BNE ZOK 
LDY *POINTL 
LDO #*20 
JSR PRCHO 
DEY : OF THE CANON 
BNE POSIS 
LDX *POINTL 
JMP GONT 



: PRINT 'STflNOJ 



WAIT FEW SECONDS 
TO READ TOTAL 



: REMOVE 'STfiND: 



EXTRA <LF> TO 60 
TO LINE 16 



: RETURN TO POSITIOM 



LDA #*0D 

JSR PRCHA 
LDA #$53 
JSR PRCHA 
LDA #$54 
JSR PRCHA 
LDA #$41 
JSR PRCHA 
LDA #$4E 
JSR PRCHA 
LDA #$44 
JSR PRCHO 
LDA #$3A 
JSR PRCHA 
LDA #$20 
JMP PRCHO 

.EN 



THIS SHOULD gXPLAiNi 
IT SELF 



20 REM ftFKOMSTIG VAN M. VftN HINTUM 

30 PRINT"U ZIT IN UW MAANLANDER OP EEIM HOOGTE" 

i® mtm^m^ ^sm mrtt^'mH de maan. uw bnelheid" 

50 PRINT"BEDRAAGT 500 M/SEC, EN U HEEFT NOG S00 LITER" 
60 PRINT"BRANDSTOF. DOOR GEBRUZK TE MAKEN VAN BRANDSTOF, " 

^ f»Ri«T«oiEPiT u m mmLmw tt^iQ te *• 

S0 PR I NT "DAT U MET EEN VEILIGE SNELHEID OP HET" 

30 PRINT"MAANOPPERVLAK TERECHTKOMT. SUCCE§! !!!!!!!!" 

LET5=500 
110 LETH=2500 
120 LETK=S0O 

tm pmm 

140 PRINT"HOEVEEL LITER BRANDSTOF WILT U l^iMlKEN "J 

150 INPUT! 

IS® IFI>*irrHEW220 

170 PRINT 

180 PRINT"HO, HQ, U KUNT GEEN BRANDSTOF AAN DE" 
110 PRftlT-RUtHTi iHfTREKKEf* ! ME VERONDERSTELLEN" 
200 PRINT"DUS DAT U Wmti BRANDSTUT HCLT OeillAIKEN. « 
210 LET 1=0 • 
t2U fFIf«75THEN280 
230 PRINT 

240 PRINT"LAST VAN HEIMWEE, HM ? TERUG NAAR MOEDER" 
2^ PRINT"AARDE ? NOU, DAT DAAT NIET DOOR, WE GEVEN" 
260 PRINT"U MAXIMAAL 75 LITER PER KEER !" 
270 LET I =75 

290 PRINT 

300 PRINT"ZOVEEL BRANDSTOF HEEFT U NIET MEER !" 

mLEN» u alles geven, wat u heeft i " 

320 LETI=K 

330 LETK=K-1 

340 LETH=H-S+CI-5)/2 

350 LETS=S-I+5 

3B0 IFINTCH+0. 5)<>0THEN3S0 

370 IFS<=5THEN460 

360 I FI NT (H+0. 5> > 0THEN5i0 

390 PRINT 

i00 WtNt^KWAFIBOEM! CRASH IKLEUN! !!»!!!!!" 

410 PRINT"HELAAS, UW STOFFELIJKE RESTEN LIGGEN, " 

420 PRINT"TESAMEN MET DE OVERBLIJFSELEN VAN UW MAANLANDER" 

Mm f»RtNT''ViiftiPREID OVER HET MAANOPPERVLAK. " 

440 PRINT"U KWAM MET EEN SNELHEID VAN "lliff Ci*0. 5) ?" M/M Ni^^ «* 
450 GOTO 850 
4E0 PRINT 



42 



m PRINT-MIJN GELUKWENSEN, EEN GESLftftGDE LANDING ! " 

90 PRINT"U KUNT HET ftNGSTZWEET NU VftN UW VOORHOOFD VEGEN" 

90 PRINT"EN EEN WftNDELINGETJE MftKEN OP HET MAANOPPERVLAK. " 

00 GOTO e90 

10 IFKO0THENB60 

20 PRINT ' • 

30 PRINT-HELftftS, U HEEFT fiL UW BRFlNDSTOF GEBRUIKT. " 

40 PRINT"UW BOORDCOMPUTER VOORSPELT, DAT U MET EEN" 

50 PRINT"SNELHEID VAN " ? INT r.SG!RCS*S+10*H)-»-B. S> 

B0 PRINT"M/SEC TE PLETTER ZULT VAUQ®I 

70 PRINT "HET WAS LEUK U GEKEND" 

B0 PRINT"TE HEBBEN. MAAR U MOET MAAR ZD DENKENs AAN ALLES" 
90 PRINT"KOMT EEN E1N0. VAARMEL, RUST IN VRED6! " 

00 FORJ=1TO1000 

10 LETft=2. 34*'^0. 5 ' ^ -^ 

20 NEXTJ . 
30 PRINT 

40 PRI NT "KWfiF'BOEM! CRASH IKLEUN! CSTILTE)" 

50 GOTO 850 

B0 IFINT<S+0. 5)>0THENS10 
70 IFINT<:S+0. 5)=0THEN750 
80 PRINT 

90 PRINT"BftNG GEWORDEN, HM ? U HEEFT ZO STERK AFGEREMD, " 
00 PRINT"DAT U ZICH OP HET OGENBLIK MET EEN SNELHEID" 
10 PRINT"VftN "; INT (5+0. 5);" M/BEC VftN HET MAANOPPERVLAK" 
20 PRINT-VERWIJDERT. U BEVINDT ZICH NU OP " J INT(H*0. 5)5 
30 PRINT"METER HOOGTE. " • = • 

40 GOTO 130 
50 PRINT 

60 PRINT"U DENKT ZEKER: ' VOORZ ICHTIGHEID IS DE MOEDER VAN 

70 PRINT"DE PORSELEINKfiST' , HM ?" 

S0 PRINT"U HANGT NflMELIJK STIL OP " 5 INTCH+B. 5) 5 

90 PRINT"METER HOOGTE !" 

{30 GOTO130 

!10 PRINT 

120 PRINT"UW SNELHEID IS NU " ; INTCS+0. 5) 5 " M/SEC. " 
30 PRINT"UW HOOGTE BEDRAABT "5 INTCH+0. 5> 5 " METER." 

140 GOTO 130 
!50 PRINT 

IB0 PRINT"DIT WAS PRUTSWERK NATUURLIJK, VOOR lEMAND" 
170 PRINT"VAN UW INTELLIGENT IE. MAAR GOED, WE^ZULLEN" 
(80 PRINT "U NOG EEN KANS GEVEN. " 
190 PRINT 

100 PRINT"WILT U HET OPNIEUW PROBEREN <JA/NEE> "i 
110 INPUTQ* " 
120 IFQ*="JA"THEN3a 
130 STOP 
140 END 



— Ei 5 O iS K^'^'^^f^ 



JUNIOR 8 K OF JUNIOR 64 K ■ : - -'ia'- v:. 

door : Hans Mooi i 

Scharstraat 37 ,^i.:o r 

1317 PL fllmspe 

1.0 ■:. . . , ■ 

De JUNIOR-comauter is in het beqin als 8K svsteem wm^mtxvi&f'mf 'l -^lMmh ' 
welke Ik samen in een kast le heb onderoebracht . 

t^rMMra°'' '^^''^'''''^^r''^^ schaakorooramma (D£ 6502 

KENNER nr. 2n). One Armed Bandit (DE 6502 KENN£Rnr, l«^ «n **«ier» Klet*» 

Later ziin er uit breidinaen gekomen welke aille«jm^;,^,pnt^^^r^^ 'formA&t 

Ik "heb mi in JUNIOR dusdanicj iianqeDast dat. als hem oo het 19 inch-re'^ ■ 

plaats Ik een 64 K ssmttmm h»6. Haal ik de stehker Van de uitbreidinos- ' ' ' ' 

Kaart. dan ontstaat weer mi m oude JUNIOR, 

Tevens heb ik de I /0-add resserina wat economischer aedecodeerd en caar- 
door dan een I/O-maa (zoals ik dit noem) van F800 t;« FBFF. 

■ • ^.'J I : ■ ,1,1 ,< >. 

intern: De PIfl 6532 oo de hoofdorint = FflOO - F07F ROM 

extern: De VIA 6522 oq de interfacekaart = F9F0 - fIfF - I/Q / TiSI!? 
De F10D3V DisK kaart = F800 - F80F' ""''n i< • ■ 

De Video kaart = F900 - F90F 

1.1 ■ ^ . 

D obou w • '-T.-^T >' ■ I . . ' 

Oo 2C heb ik standaard bus sionaal SEL aanaezet. dat FSOO - -SF- de- 
codeert. Van de 512 olaatsen extern ziin er noQ vele onbezet en voor ei- 
gen toeoassinoen bruikbaar. 

Het memory heb ik zoveel mooel i tic wet RflM bezet zodat er snel van svsteem 
Drogramma (Basic. Forth, e.d. ) oewisseld kan worden. De meeste hoofd^ro- 
pramma s heo ik oo cassette oo de adressen $2000 - $3FFF. Ix ben van olan 
hier een EPROM te oaan aebruiken met tmnkmitcMm onder te vspdil^ *«, 
SK statische RAM + 8K EPROM. 0000 - i^P;^^!" ^Ihjw fppF vgr^JiJ^p, . 
Het video-Qeheiigen van 2K RAM is bii mi i 4K aeworden door 2" x 6116 oo e '- 

2.0 ' 
Hardware aariojpssinggn : Uog rade 

f^«^^S^^" 1 X 74LS50 X 4K7 weerstanden 



2.1) Doorverbinden 2a intern 2a extern van de 41612 DIN connector on de 

axterne eonnwctor is de co«neetor die naar de buskaart calt 

2.2) Veranderinaen fteofdormt: 

45ic Y^r;$*^* ^",^r 2716 of 2732 vmt iy> de Dlaats. 

2716 : IK voor het gecopMoeeTde mm^-orsapmimA 

voor DOS Paoerware 1 (Elektuur) 
2732 ! IK als 2716 MON (aecorriaeerd) 

IK als 2716 DOS 

IK MON voor evt. 6809E 

IK DOS voor evt. 6S09E 



Verwiider C 12 en C13. Kras iSa en 17c ios: dit zit aan de bovenkant 



waar de toetsen zich devmaen. 
Verbindt de -kant van C 13 (welke er uit is) 
(voor aebruik van 2732 een 3uil-uD weerstand 
VerbiniBt de +kant van C 12 (welke er uit is) 
vm 4I£7 id|iy:$Wtvan IC 8 oin 14. ^ 



2. 4) 



aan +5V van IC 6 om 14 
van 4K7). 

met een duII-ud weerstand 

4r-. 



2. 3> VSr 



inotn iMerfacekaart. 



■7.C intern 




haal Kb vaw oln! 23 IC 1 los door vlakbi i IC 13 o:n 2 dcor te krassen. 
Leq een v^^&irtdfrtg van IC 1 oin 23 naar 2c interne connector 41612 DI.M 

FI6.3 



Itan de tekentafel: 
Fridus Jonktan 



■La 





TClf 


8 . Hi 




R 





Haal IC 13 er i.iit en kras verbindinc van oin 6 naar oin 11 door. Kras 
vlakDii IC 13 oin 8 ds v#i*l3in«JI'«e.^>3«or en leg firaatfverai¥WI'ito van 
Din S iC 13 naar R. 

IC 13 Din 11 met een araad naar externe connector 41612 oin 2a. Lea te- 
vens een oull-uo weerstand van 2K2 van oin 2a naar +5V. la + Ic connec- 
tor 41612 DIN extern. 

Maak nu een ormtie met de 2 IC's 74LS30 en 74LS12 en verbindt deze 

OD de hoofcDnnt. 



13 



2a 




a 


Inter n 










3 






A 13 




intern 








ijijdtRei) AMI)" 




•2.C Intern 



:).HLS3o 



Uitselecteren van Vlft F3F0 t/rt FSFF 
als standaard flK Evsteem. 



Verbmdt nu oo alle uitbreidinosKaarten Din 2a van 41&12 DIN connector 
met aarde. oin 4a. c. 

Bi 1 het verwi ideren van alle uitbreidinaskaarten zal de JUNIOR als 8K 
svsteem werken (zoals vroeqer). 

De eerste uitoreidinaskaart zal oeheuoen od olaats 0000 t/m 0200 moeten 
Hebben. anders is ef oo deze olaats niet de nodioe 1^ «iinweziQ. 

ippp/ + + a K STflNDflflHJ) 

FFFF i 1 K MON ! SYSTEEM 



0000/ 
DOOO 



1 K 


MON 


1 


I/O 


PIft+VIfl 


1 


2 K 


EPROM TM 


1 


2 K 


RPIM 6116 


1 


1 K 


RAM 


1 


1 K 


RAM 


1 

-+ 



MEMORY MAP 
(64 K)/a K 



Ol 



2000 
ICOO 
1600 

tmo 

QSOO 

mm 

0000 



K DOS-MON 
'K"i75-Mflp' 



MEMORY-MOP 

+ — 
! 1 
+ — 
I 1 

I ~2~K~ipR0M 
T_2_K_RAM 
t_l_K RflM~~ 
t~l"K~RflM" 

4 K ^imsfm T 
i 



-+ 
I 

-+ 

I 

-+ 

I 

-+ 

I 

-+ 

I 

-+ 
I 



f ia. 

FFFF 
FCOO 
FSOO 
FOOO 
E800 
E400 
EQOO 

DOOO 

COOO 



he 



+ 



// 



he 



6 K 



18FF 



IBOO 

lAOO 
19F0 



//[ 



ISO 



I/O - MAP 
+ + 

I ////////////// I 
////////////// 

I ////////////// 1 
////////////// 

VIA intBrfaoi 



vri 1 



I VIDEO RE6._ 



I 

-+ 

I 

-+ 



K 



4000 



2000 



FBOO 



F9 



,Faoo 

64 K 



♦**♦» PATCH OP MICRO-fiOE ♦«*♦♦ 
»*♦♦« ***** 

ft. v.d. MEUTTER 

Mechelbaan 49 

B-3i!il HPist Oo den Bera 

□d Micro-fiDE heb ik een kleine oatch aemaakt. en wel voor LIST, 
NoriYiaal kan ie LT aebruiken voor listina zonder reaelnummer. Je 
kan alleen teruo reoelnuMMners kri laen flleirr 2 uit tm voarcn. 

Dit is niet lanaer zo ! 

Nu werk je als volgt : LI of LIST aeeft reaelnummers 

LT geeft zonder nummers 
L bliift zoals laatste keuze. 

Je kan dus oo ieder moment kiezen tussen LI en LT. 



30EE 


Efl 






30EF 


EO 






30F0 


OD 


01 01 


LDfl $0101 


30F3 


C9 


54 


CMPIM 'T 


30F5 


FO 


00 


BEQ CH0N6E 


30F7 


C9 


49 


CMPIM ' I 


30F9 


FO 


06 


BEQ CH0N6E 


30FB 


En 




NOP 


30FC 


EO 




NOP 


30FD 


20 


67 23 


JSR LIST 


3100 


GO 




RTS 


3101 


85 


4D 


STOZ *4D 


3103 


FO 


F8 


BEQ *31FD 


De enige 


Mi jziging 


is van 30F0 1 



MOM A . 

,iit^'.lll.pili^ 



E:» r*f- &^ KERNEL TEST ROUT I rjEI 



G. V. Roekel 

V. d. Pa I ftist raat IIC 

3135 LK VLAARDINGEN 



Met een hu i . i ne is het moge I i J k om de BftSIC ©n MONITOR ROM te koPieren 
R««r RAM. Hi^^r^sT is wel een maar verbonden. Men kan wel arieen de BASIC 
RDM naar RAM K r eren, maar n i et alleen de MONITOR van ROM naar RAM. Voor 
het koPiert-r- , de MONITOR ROM dient u eerst de BASIC ROM naar RAM te 
topieren. Met ondemtai^d prosramma v*&Ta% iS^^ ^¥^W^L routine 9ezet> waarbij 
ti de keuse heeft ow «l I een de BASIC ROM t© koPieren of BASIC en MONITOR ROM. 

KERNAL ROUTINE 



101 PRINT" 1 mm-WPP tH RAM" 

110 PRINT-2 A000-BFFF + E000-FFFF IN RAM" ~"' 

120 PRINT"MPAK U KEUZE" ! INPUTA 

130 PRINT' rA'EN IMOytD A. U. B. " 

140 IFfl- . ThF.-!GDSUB170 

150 IFfi-2THENGaSUB170:DOSUB190 

150 EN!D 

170 FCRJ=4i;L": . -1 49151 rPOKEJ, PEEKt J) 
180 NEXTJ: F^DKEi , ,4: RETURN 
» R»J=57344 "O 65535 : POKE J. PEEK < J) 
200 NEXTJ : POKE 1 , S3 : RETURN 

TEST KERNAL 



100 FORJ-^Mit TO 41B52 
110 READY: PC J, Y: NEXT 
120 DATA -^f ?G,65,E5, 82 
130 F0RI^61B57 TO 61BT4 
140 REPDX:POKri, X:NEXT 
150 DHTr EFj, , 85, 75, 32, 80, 76, 85, 89 
1B0 DATh . :> C , 79, 89, 84, S3, 32, 73, 206 

Indien (> biJ het eerste programma heeft gekozen voor nummer 2 dan zal na 
hset ' RUNNEN' v.^n het tweede prosramma het woord 'READY' vervangen siJn door 
h#f woord >R' . En als u het woord 'LOAD' i ntoetst zal op het scherw de 

mmt 'DRUK ,-. Y TOETS IN' i.P. v. 'PRESS PLAY ON TAPE'. Mocht bliJken dat 
het met .Zf kontroleert u dan of beide programma' s soed ziJn ingetoetst 

Rnders is h«:-. o n lodzake I i J k om met uw COMMODORE 64 terus t© saah naar d© 
winkelie . ;iet s namelijk sebleken dat er met een aantal machines geen 
KERNAL routine moseliJk was. Dit uitte z i ch over het aigemeen in het n i et 
3oed f ynkt ; one- en van een aantal machinetaal prosramma' s wetke sebroikt 
maakte van dezt KERNAL rout i ne. 




4? 




Versneld laden van BflSIC-oroqraMa's oo de SENIOR 



KMREKTIE 



Ssori 6ert van Oobroek 
Hooalanden 20 
980i LB Zuidhorn 
Tel. : 05940 - 5627. 



van BftSIC-orooraMa's naar 



Bij het weaschri.iven 

schiif d.a.y.' het coMando 'SAVE' Nordt er een ASCII 



hijf 

file aanqetaakt. Bij het inlezen van een derqelijke 
file d.a.'v. het coMando 'LOAD" vindt er tiidens het 
inlezen een oazettinq olaats. Het oevolg hiervan is 
dat het laden van gfote orooraMa's ( )16K ) vele 
•inuten verot. Dit is te ondervanqen door buiten 
BASIC oa een ■eaory duao van het Droqraiaa te taken, 
Dit kan als volat aedaan Morden: 

1. Vraao (binnen BASIC) het eindadres +1 van het 
oroqraeM so If iUMMm 

"CLEAR" 

"PRINT HEX* (tnnnn-FRE(O))" 
Haarbii nnnn het hexadeciaale adres van de hooa- 
ste RAM-locatie is. Indien BASIC dit adres bii de 
koude start zelf beoaald heeft. is dit naxieaal 
HEX BFFF. 

Het beainadres van het orooraMa is HEX 4D00. 

2. 6a uit'BASIC set de ODdracht "MON". Schriif m 
het onder ount 1. gevonden oeheuaenaebied itea let 
de ■onitoroDdracht "D". Schriif bovendien oaoina 
0 (HEX 0000 t/a HEX OOFF) in dezelfde file Neq. 

Het inlezen van een do deze aanier Neooeschreven 
BflSIC-oroaraua oaat nu als volot: 

A. Laad BASIC, doch start deze'niet (of verlaat 
BASIC aet de oodracht "NON"). 

B. Laad het BASIC-orooraaaa aet behulo van het 
aonitorcoaaando "L'. 

^art BASIC Mt een ManM start d.a.v. het ao- 

•6". '-Wj 



ELEKTUURS SAMSfflKS DOS COHPUTER 

In het voonaar 1985 brenqt Elektuur haar S(WS0M-65 
DOS-coaouter uit. Do aaandaoavond 3 sect. 1984 werd 
ons deze nieuwe zelfbouw coaouter oedeaonstreerd. De 
SAMS0M-6S is ooaebouHd uit reeds bestaande eurokaar- 
ten. zoals de CPU- en VDU-kaart. dvnaaische Raakaart 
en/of universele geheuqenkaart. en de voor het 0S6SD 
Disk Ooeratino Svstea V3. 3 bedoelde controllerkaart. 
Vergeleken aet de JUNIOR. Haarvoor erg veelsets boe- 
ken werden verkocht. ziin er ttiee in het ooo looende 
en aantrekkeliike verschillen. Ten eerste is de coa- 
outer ooaebouHd uit eurokaarten. zodat het aeheel 
oeaakkelijk kan worden onderaebracht in een 19" rek. 
Ten tweede is er aezorad voor oebruikersvriendeliike 
softmre voor het aonitoroebeuren. Hierin staan full 
screen editing en Mordorocessinq centraal. naast een 
aantal aantal utilities. De "Kenners" zullen in deze 
software, die tegen geringe verqoeding door Elektuur 
DO uM diskette Hordt oesclireven. deleii van de ooou- 
laire Micro-ADE herkennen. Voor de SMSOM-GS heeft 
Elektuur al soecifieke toeoassinoen in ontMikkelino. 
De redaktie zal de koast van deze coaouter alvast 
ondersteunen aet een oublikatie die het 0S6SD in be- 
lanarijke aate oebruikersvriendeliiker zal aaken. Ue 
zullen de toekoastiae gebruikers ervan aet de erva- 
rinaen die Me in huis hebben een aoed onderdak kun- 
nm verachaf fen. 



IN HET ARTIKa "USING FORTH MITH THE 6502" UIT NR. 30 
8TAAT EEN FOUT. DIE IK HIERBIJ JXm ZIJ EEN BETER INZICHT 
IN FORTH (VIA OE ICTHQDE VRLLEN EN flPSTHM VEKflEffiN) m 
K0RRI6EREN. 

EEN DEEL VAN DE TEKST UIT HET AitTm m &mBm ff%- 

DRUKT: 

HET TOEVOEGEN VAN UOORDEN AAN EEN BESTAANDE VOCABULARY. 
WAARBIJ DEZE IN HET SVSTEEH •GELOCKED* MKIBI mm. ' 
SAAT ALS VOLGT: 

FORTH DEFINITIONS DECINAi.. 

LATEST 12 +ORIGIN ! 

HERE 2S -fORIGIN ! 

HERE 30 +ORIGIN ! 

HERE FENCE ! 

WANNEER EEN AANTAL UOORDEN. DIE EEROER ZIJN "GELOCKED" IN 
HET SYSTEEM. NOETEN UORDEN VERNIJOESS. DAN NOET HET VOL- 

DE WORDEN UITGEVOERD: 
FORTH DECIMAL 

• AAA NFA 12 +ORIGIN ! ... , . . 

YYY DEFINITIONS ' " 

' BBB NFA 28 +ORIGIN ! 

' BBB NFA 30 +0RI6Ii ! ■ . 

' BBB NFA FENCE ! 

' ZZZ 6 + 32 +ORIBIN ! 

FORGET BBB 

HAARINS AAA HET LAATSTE HOORD IS VAN DE FORTH-VOCABULARY 
BBB HET EERSTE UOORD IS DAT UIT HET SYSTEEN VER- 
DWIJNT 

YYY DE VOCABULARY IS WAARIN BBB VOORKOMT 

(DEZE REGEL IS ALLEEN NODIG INDIEN BBB VAN EEN 
ANDERE VOCABULARY DEEL UITNWKT DAN FORTH- 
HET HOORD DEFINITIONS IS ALLEN NODIG BIJ 
BEBRUIK VAN FORTH V0L6EHS DE 79-STflNDAARD) 

ZZZ DE LAATST GEDEFINIESiBE VOMMLJIir 11 M IN 
HET SYSTEEN BLIJFT 

(DEZE REGEL IS ALLEEN NODIG UANNEER EEN OF 
NEER VOCAKJLARIES GEHEEL VERDWIJNEN). 
WEL DIENT BEDACHT TE WORDEN DAT ALLEN EEN OF HEER 
WOORDEN. DIE EEN AANEENSLUITENOE REEKS VORNEN EN DIE 
HET LAATST AAN HET SYSTEEN ZIJN TOEGEVDEK) OP KIE HIJZE 
VERWIJDERD KUNNEN UORDEN. 

FRIDUS JCMNAN 



BUG IN DOS UITBREIDING VAN ELEKTUUR. SEPTEMBER 1984. 



Gert Klein. Diedeniieo 119. B70G Uaaeninaen aeldt ons: 
Bii het OHIO DOS aoet ie eerst een file in de directory 
creeren alvorens ie de betreffende file kunt weaschri wen. 
De door Elektuur oeouDliceerde oatch orobeert dit te o«- 
zeilen. In een beoaald en helaas veel voorkoaend aeval 
leidt dit tot taaeliik ruineuze resultaten. Wat is nu het 
geval! Nanneer ie nu een file wilt weaschri iven en er is 
nog oeen entrv in de directory aanwezio dan creert de oe- 
noeade oatch zie zelf. De ruiate is echter orecies oroot 
genoea oa de file do floo te schriiven. Uanneer ie later 
de file oaat uitbreiden. dan aaakt de oatch de benodiade 
ruiate niet oroter. Helaas is de OHIO DOS niet slia qe- 
noea oa dat zelf te ontdekken en orobeert dus de file weo 
te schri iven in een te kleine ruiate. On zich is dat nod 
niet ZD ero. aaar het resultaat is wel dat de file oo de 
floo orondio in de vernielina wordt oeholoen. 



STUUR DE REDAKTIE UN ZELF ONTHIKKBJI SOFTNARE/MAaDHARE 



all-round 



All-round Systemen Nederland B.V., Stationsweq 23, 2182 BA Hillegom 
postbus 212, 2180 AE Hillegom. tel. 02520-19544. telex 41443 aliro nl. 

WIJ LEVEREN SNEL EN TEGEN ZEER CUNSTICE PRIJZEN: 

Diskettes 

van verschiliende merken zowel 8" als S^". Tevens formatted en 
cleaning dikettes. 

Papier 

voor kleingebruikers leveren wij dozen van 1000 vel 38 cm. 

Inktlinten 

linten en kassettes voor alle gangbare printers. 

Computernneubilair 

o.a. ideale tafeltjes om een kompleet micro systeem op te plaatsen. 

Data -safe s 

een mini safe voor 80 x 5i", of 30 x 8" diskettes. 

Opbergsystemen 

o.a. voor diskettes, tapes, kassettes en alle maten output. 

Geluiddempende kappen 

brengen het geluid van uw printer 75 tot 90% terug. 

Alles voor uw computer 

VtSy all-round 
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Micro- APE Aaaembler/Disassembler/Texteciitor 
for 6 50 2 <8K) 



SYSTEM DESCRIPTION 

The Micro-flDE svstem is desianed for use with any 6502 (Yiicrocomouter and 
consist of three maior oroarams as well as a number of utility oroarams. 
The major oroorams are an assembler, a disassembler, and a text editor. 

The assembler is used to create machine executable code for the 6502 
from a symbolic inout source oroaram. Small oroarams can be created and 
tested directly in memory. Larger oroarams may be written usino cassette 
taoes for source inout and obiect outout. 

The disassembler is used to list executable 6502 machine code in the sym- 
bolic assembler source format. Symbols are generated if they are defined 
in the symbol table. 

The text editor is used to create source oroarams in the format reouired 
for the assembler. It contains the necessary routines for easy manipula- 
tion of text data in memory or from cassette files. 

The minimum system configuration for full use of all Micro-ADE features 
consists of a 6502 CPU. 8K of random access memory, 2 cassette recor- 
ders with start/stoD control, and an ASCII inout/outout deyice. It is 
Dossible to use all oarts of the system in a restricted way with less 
memory and a sinole manually ooerated cassette recorder. 

For some months oast our club has obtained cooyriohts on Micro-flDE 

of Peter Jennings from Micro-Ware Ltd. We are allowed to oiace Micro-flDE 
at the disDosal of the members of our club. 

The original 4K Micro-flde has been oatched uo to 8K bv Sebo Woldrinoh, 
with commands like flooend Source Files. Insert Lines, Set/Reset Form 
Feed Flag, Chosse Lines, List, Moye Lines, Load flSCII-format Files, Set/ 
Reset Page Mode, List Used Memory, Duolicate Files, Save Source Files, 
Print Symbol/XREF-tables. Set/Reset Page-oer-Fi le/EJECT Flao, Search Li- 
ne, Print/Change String, Assemble/Execute, Set Lines/Screen and Lines/ 
Page, Disassemble, List without line numbers. Save chosen Lines, Save 
flSCII-format Files, etc. 

From these catches W. L. van Pelt comoosed an 8K source-1 ist ina, comolete 
with comments. 

Manual+Command Review: Fl. 35,00. Source Listing 8K-version: Fl. 65,00. 
Original 4K Source-Listing: Fl. 30,00. Cassettes in KIM/JUNIOR hyoertaoe: 
4K KIM = Fl. 12,50, 8K KIM = FL. 12,50, 8K JUNIOR = Fl. 12,50. 
To be paid with Eurocheoue, or on the costal account 841433 from W. L. van 
Pelt, Krimoen a. d. IJssel, The Netherlands. No other payments allowed. 



